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ABSTRACT 



This effort explores the design requirements for an expert translator 
to be used as an interface between present Computer Aided Design (CAD) 
and Computer Aided Manufacturing (CAM) systems. The translator's purpose 
is to perform certain standards checks on the design data and pass 
assembly information as well as material requirements from CAD to CAM. 
An example translator was implemented for a simple one room house 
construction problem using the artificial Intelligence language Prolog. 

This research is part of an effort to design a generic Computer Integrated 
Manufacturing System in which the design through manufacturing process 
is totally automated. 
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I. INTRODUCTION 



In the not too distant future, most factories will be using an 
integrated, computer aided, design and manufacturing system. There has 
already been much work performed in Computer Aided Design (CAD) and 
Computer Aided Manufacturing (CAM) techniques. Although definitions may 
vary slightly, Ness [Ref. 1] defines CAD and CAM as follows: 

Computer Aided Design is the application of computer technology to the 
design of a product. This includes layouts, detail design, analysis, 
drafting and formal release of design data. 

Computer Aided Manufacturing is the application of computer 
technology to the fabrication, assembly and verification of a product 
that does not depend on and cannot productively use specific CAD data. 

Expanding on the above concepts, the CAD process consists of product 
specification and design. CAD may allow for product simulation and 
performance analysis using computer models. Some pre-manufacturing 
testing may also be performed. Product layouts may be generated. 
Increased interest recently has been focused on the use of interactive 
graphics with CAD; Beeby [Ref. 2] discusses this issue as applied to the 
construction of the Boeing 767 airplane. Interactive graphics systems 
allowed the designers of the Boeing 767 to interact with the design 
system and data in real time. In addition, some design changes were 
automatically propagated through the entire design relieving the designer 
of the update responsibility. Beeby [Ref. 2] cites as an example that 
changes made to the thickness of the spar chord in the wing of the Boeing 
767 produced automatic changes in related items such as ribs and clips 
without designer intervention. 
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To expand on the CAM process, it is only necessary to look at some of 
the methods presently used in the manufacture of the Boeing 767. 
Computer aided tools locate, drill and fasten wing spars. Robots handle 
sanding and painting tasks. A self-propelled drilling unit travels through 
the interior of the plane drilling the more than eight thousand holes that 
are required for seat installation. 

However, it is the lack of integration of the design data produced by 
CAD into the manufacturing process handled by CAM that is our primary 
concern. The future goal is to build factories in which a network of 
computer systems is used to support product design, planning and 
manufacture and thus facilitate faster and more economical production 
(Ref. 3]. Current CAD and CAM systems are primarily independent and thus 
unable to effectively communicate with each other. One solution to this 
problem is to define a standard data format which will be accessible to 
both CAD and CAM. With a standardized data format, future CAD and CAM 
systems, which are built to use the format, will be able to communicate 
with each other freely. 

For example, Boeing Commercial Airplane Company (BCAC) has 
introduced a standard geometric data format as part of its CAD/CAM 
Integrated Information Network that has now become the framework for 
the Initial Graphics Exchange Specification (IGES) [Ref. ^l. More recently, 
the International Organization for Standardization (ISO) has been 
develc^ing the Programmer's Hierarchical Interactive Graphics System 
(Phigs) standard which is based partially on the Graphical Kernal System 
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(GKS). Both of these systems demonstrate the intense interest in forcing 
standardization of data. 

Another solution to the communication problem between CAD and CAM 
is to design a communications interface that could be used with current 
CAD and CAM systems with little change In their structure. The advantage 
to this method is there Is no massive redesign of CAD and CAM systems 
required to meet the requirements of a new standard data format. 

The purpose of this research is to define the software and data 
requirements that are necessary to integrate CAD and CAM into a fully 
compatible system by the use of such an interface. We shall call this a 
Computer Integrated Manufacturing System. The interface will consist of 
an expert system translator used to link the CAD output data and CAM 
input data. An example translator will be presented and discussed. This 
translator will be an enhanced version of the translator first presented in 
[Ref. 5). 



8 



II. Background 



The Expert System Shell Translator design to be proposed in this paper 
will be based on the concepts of Computer Integrated Manufacturing (CIM) 
as described in [Ref. 5]. CIM can be defined as the use of integrated 
computer systems to automate the manufacturing of an item starting with 
design and continuing through final production [Ref. 61 Two portions of 
any future CIM computer system that are widely used today are Computer 
Aided Design (CAD) and Computer Aided Manufacturing (CAM). 

With the introduction of the minicomputer and the increasing power of 
the microcomputer, significant gains have been made in designer 
productivity and accurracy [Ref. 71. In addition, newer CAD systems even 
allow simulation and perfomance analysis. Similar gains are being made in 
CAM with the advances in sensor technology, computer controlled robot 
devices and numerically controlled machines. Examples of numerically 
controlled machines are the tube bending digitizers that automatically 
measure and record hydraulic tube shapes and then perform multiple tube 
bends during the construction of the Boeing 767 [Ref. 2). What is currently 
missing Is a link between CAD and CAM to allow data transfer from one to 
the other thus allowing a completely automated factory. In an ideal 
factory, a product would be designed using CAD and then the design would 
automatically be transformed into a final product with very little human 
intervention. To even approach such an ideal, a communications path must 
be established between CAD and CAM. Figure I shows how an Expert 
System Shell Translator would be used to fill this gap. 
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An example expert translator system was proposed and partially 
implemented in [Ref. 5] for the construction of a house. In this paper, we 
will enhance the translator to demonstrate its feasability using a more 
realistic product design. In addition, proposed data models for CAD output 
and CAM input as suggested in [Ref. 5] will be refined as necessary to 
facilitate the enhancement. 




Figure 1 . Relationship of Expert System Shell Translator 
interface to CAD and CAM. 

There are at least two reasons for developing the technology to 
integrate current CAD and CAM systems rather than starting over with a 
fully integrated CIM system from scratch [Ref. 8]. First, low level 
manufacturing equipment will most likely be produced by a varied 
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assortment of manufacturers and will require different hardware and 
software for control. Second, factories that are interested in increasing 
automation will be more likely to add to existing equipment to reduce 
costs. They car¥X)t afford to keep up with the latest in technology and 
abandon their previous investments. Each of these component systems can 
be expected to have a wide variety of data management systems. 
Therefore, an easily adaptive CIM system structure is required to handle 
these differences. The translator provides that adaptability by providing 
the interface necessary to link the various CAD and CAM systems already 
in use. 
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111. Data Output Specification for Computer Aided Design 

Figure 2 shows the necessary processing and generation of data 
performed by CAD. 




F igure 2. Processing of data during Computer Aided Design. 

Using both the conceptual schema and the data model as input, CAD 
generates a design schema and the corresponding design data for the 
product to be manufactured. The conceptual schema provides the 
hierarchical part_of relationships while the data model acts as a guide 
for the CAD process. 

A. CONCEPTUAL SCHEMA 

Most of our discussion in this section will center on the proposed 
format for the design data but first lets examine a sample conceptual 
schema. Figure 3 is the conceptual schema for a generic house 
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construction application. The conceptual schema provides CAD with the 
hierarchical part_of relationships between primitive types from which 
composite objects can be built. Each block in the conceptual schema 
represents a different primitive. 



floorplan 




exterior 



roof 



room 



epece 




Figure 3. Conceptual Schema for a generic housa 

Each part, real or abstract, of a final product house would correspond 
to an instantiation of some primitive. Instantiation is said to occur when 
a primitive is copied and that copy refers to an actual part of a design in 
progress. For example, the living room and bedroom of a house are 
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different instantiations of the same primitive room while their walls, 
floors and ceilings would correspond to the primitive face. There is 
actually a two-way relationship present. That Is, If a particular face, 
face_A, is part of a room, room_l, then room_l contains face__A. 

This dual relationship will be used later In the development of the design 
data. It is also important to note that while a sub_cover must be part of 
some given face. It Is not true that any instantiation of a face must 
contain a sub_cover. For example, consider a face consisting of unpaInted 
brick attached to a wooden frame. Then the face would consist of a cover 
(the brick) and a frame. If painted, the brick becomes a sub—cover with 
the paint acting as a cover. 

Primitive types may be defined to any level of abstraction and become 
the building blocks fcr the final product design; thus, each conceptual 
schema Is product dependent [Ref. 5]. Those primitive types with dark 
borders in Figure 3 have named subtypes associated with them. A house 
may be subtype colonial or ranch for example. A room may have subtype 
bedroom or bathroom. The use of subtypes allows information about 
specific configurations of types to be stored for later use. They become a 
framework on which to build. For example, there are certain 
characteristics about a bathroom that makes it a bathroom. The subtype 
bathroom should capture that information which is true for all bathrooms 
for use in future designs. 

The CAD process, guided by the data model, records actual 
Instantiations of the primitive types of the conceptual schema to form the 
design schema for the product of Interest. A particular house design 
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schema for which our example translator will be based is shown in 
Figure 4. 

The design schema for a product uses inheritance properties to infer 
some information about the primitive types using known information about 
related types. Inheritance refers to those cases where there is no need to 
specify different values for two different types that are related in a 
specific martfTer. One type simply inherits the information from the other 
type. Consider a car being manufactured. If the car has its color specified, 
then parts of the car such as fenders, doors and hood would inherit that 
color information. In addition, using both part_of and contains 
relationships, this information is easily passed both up and down the 
hierarchical structure. The conceptual schema provides the CAD/CAM 
translator information on how the different building blocks of the final 
product will fit together. 

B. PROTOTYPE 

A prototype can be thought of as a block of memory allocated to store 
data for ar»y given type (primitives and subtypes). For each.different type, 
a new prototype must be defined since the amount of memory storage 
required is type dependent. In this way, we can partition our data such 
that all the facts krx)wn about any particular type instantiation can be 
aggregated in much the same way modern programming techniques allow 
the partitioning of programs into modules [Ref. 9]. There exists a 
one-to-one correspondence between the set of all types and the set of all 
classes or prototypes [Ref. 5]. 
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Figure 4. Design Schema for House 1 . 
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The set of all prototypes for any given conceptual schema will be 
designed to provide the interface between CAD and CAM with the 
necessary data to determine all required input for the CAM routines. Now 
consider the design of a prototype that will allow us to accomplish this 
task. Figure 5 is an example prototype for the primitive type cover listed 
in our conceptual schema presented earlier. 




* s> may b* MwiiM 

from faoo prototypo 

•*»4ttr1)utf is optional 



Figure 5. Prototype for primitive Cover. 

Each prototype has named slots which can be filled in for a particular 
instantiation of that prototype. These slots contain either relation or 
attribute data. The slot part of in Figure 5 is for relation data. It relates 
the cover to a particular face. The slot material type Is for attribute 
data and is used to store material information about the cover. 

A blank prototype is also known as an intension or abstract specification. 
An intension is a meaning of a concept; that is, the prototype for a cover 
defines what it means to be a cover [Ref. 9). With the appropriate slots 
filled In, it becomes an extension of the original prototype [Ref. 51. An 
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extension is a concept which corresponds to an actual item which has 
existed in the past, currently exists or will exist in the future (Ref. 9). In 
the above illustrated prototype, the slots material type, height and 
depth fall under different rules for being filled in as Figure 5 notes. The 
attribute material type is required to be filled in while depth is 
optional. Those slots made optional were those that could have a 
nonsensical value under some circumstances. Consider the depth of a cover 
of paint. While some number could be given, it would not normally be 
relevant to the design and construction of a house. Therefore, its value is 
optional. Careful thought must be given to the use of optional entries 
during the design of the prototypes. The design and efficiency of the 
CAD/CAM interface may be dependent on the number of vacant slots 
allowed. For those cases where the slots may or may not be filled in, the 
interface will have to consider both cases. The number of vacant slots 
allowed can have an adverse effect on the number of rules used, the 
complexity of rules used, or both for the interface system. 

The attribute height shown in Figure 5 may be filled in or left blank 
with the value to be determined for input to the CAD/CAM interface using 
inheritance rules. Inheritance will be discussed in more depth in the next 
section. 

The format for storing data in a prototype's slots should be kept 
simple to minimize the effect on the interface design. That is, value 
information for each slot should consist of only two parts at the most: 
actual value and units of measurement when required. The 
attribute/relation that specifies the slot may consist of several parts 
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itself such as dimensions(height) but should be standard. Using this 
method, each prototype slot is bound to a specific value based on some 
standard attribute or relation. For any given product, there will exist a 
set of attributes and relations for which each prototype will require a 
subset to define its required slots. Some attributes and relations will be 
universal to all products while others will be product specific. Consider, 
for example, property(material type). This would be required knowledge 
for all products. Now consider the attribute dimensions(height) in 
relation to spherical product. It has no meaning while the attribute 
dimensions(radius) does. 
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Figure 6. Prototype for primitive Face filled in for instantiation facel 1 . 



Figure 6 is an example of a filled In prototype showing extension name, 
qualifying data and values. This prototype is for a particular face shown 
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in the house design schema of Figure 4. It represents CAD’s knowledge 
about facel I. Note that one of the slots violates the rules presented 
above for simplicity of slot specification. This is the slot for the 
relationship contains. This type slot allows for a one-to-many 
relationship between a composite object and its components. This was 
done for two reasons. First, part_of already provides a simple relation 
between any two related parts that meets the requirements listed above. 
Second, the use of multi-values allows CAD to move quickly up and down 
the hierarchical design schema while conserving storage memory required 
for each prototype. 

C. SLOT INHERITANCE 

Now we consider in more detail how inheritance can be used to 
determine a slot's value. Inheritance refers to the property exhibited by 
two prototypes, which due to their relationship, possess slots which must 
take on the same value as the other’s slot. 

Facel I, whose prototype is shown in Figure 6, contains covert. 

Figure 7 is a filled in prototype for covert based on known CAD design 
data. The primitives height and width for cover— t are not filled in and 
therefore their values must be determined using inheritance rules when 
determining the design data for input to the CAD/CAM interface. For this 
reason, the inheritance rules must be part of the prototype definition. 
Looking at Figure 7, the indicates that the slot, if left blank, will 
inherit its value from the face which the cover is part of. Using this 
method, it is possible to specify an entire chain of primitives from which 
inheritance can take place. For example, the covert prototype could have 
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specified that inheritance from the sub_cover beneath cover 1 would take 
priority over Inheritance from face 1 1 . In addition, if inheritance from 
sub_covers was allowed, then ordering of the sub_covers becomes a 
factor. Using this method for a cover with two sub_covers beneath it, we 
should first look for the slot value in the sub_cover directly beneath the 
cover, next check the second sub_cover, and lastly get the value from the 
appropriate face if not yet successful In finding a value. 
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Figure 7. Prototype for primitive Cover filled In for cover 1 . 

Part of the CAD process is verifying that the correct values for those 
slots left blank will be properly inherited for input to the translator. 

D. COORDINATE SYSTEM 

In order to specify location information in a prototype, it is imperative 
that the frame of reference be known by any process using that 
information. For most products, three frames of reference should suffice. 
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These are global or world, product and local coordinates . Figure 8 shows 
the relationship between each of these systems. 

Global or world coordinates relate to the real world. For example, the 
lines of the compass could be used with the Z axis perpendicular to the 
ground. The product coordinate system expresses location information 
relative to the product itself and is useful when locating parts on the 
product regardless of the absolute location of the parts relative to the 
earth. For large parts that are made up of many smaller parts, the local 
coordinate system may be used to express the location of the smaller 
parts relative to the large part. 

Local 

Coordinates 




Figure 8. World, Product and Local coordinate system relationships. 

The use of product and local coordinate systems not only eliminates 
the need for absolute or global location coordinate information under most 
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circumstances but also provides automatic update of location information 
during design changes. For example, consider a face, facel, that contains 
a window, window 1. A design change is made that causes facel to be 
moved ten feet. If window 1's location has been expressed relative to 
facel, then updating facet's location will automatically handle 
window 1 since the relative location for window 1 has not changed. 

In addition to specifying locations of various parts, other information 
about the part's position may be desired. If many flat parts are being used 
in a product, then the unit vector perpendicular to their surface can be 
used to gather additional information on how the parts will align in the 
final product. This vector is called a normal. Figure 9 shows an example 
of a normal. 




F Igure 9. Example of a normal vector to a surface. 

By definition, a normal is of length I unit, regardless of the units used. 
In this manner, each flat surface will have one unique normal associated 
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with it and each normal will specify one and only one surface. It is 
important to remember that the coordinate system used to express a 
normal will affect its value and therefore, for a normal to be useful, the 
coordinate system associated with that normal must be specified. 
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IV. Data Requirements for Computer Aided Manufacturing 

Figure 9 shows the data flow for a typical CAM process. The Material 
Requirements Planning Data consists of two parts, assembly instructions 
and a raw material requirements listing (Ref. 5]. Each of these will be 
discussed in this secticMi. 




Figure 9. Computer Aided Monufecturing dote flow [Ref. 5J. 

The purpose of the expert system translator will be to provide the 
assembly instructions and raw material requirements in such a format 
that will allow it to interface to an automated manufacturing system. 

A. ASSEMBLY 

What information is necessarily contained in the generated assembly 
instructions? That is product dependent. For example, when putting solder 
on an electrical connection, the type of solder used as well as the 
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temperature of application can be important. When gluing two components 
together, the type glue used, the pressure applied and the drying time 
become important. These are examples of Information that may be 
generated by the CAM system normally but may also be overridden during 
CAD. The Interface must be capable of passing this information through to 
the CAM process. 

In addition, the assembly instructions will provide sequencing 
information, the determination of which may require not only the 
conceptual schema for relation data, but also prototype data. This would 
be due to Information contained in the prototype that affects priority such 
as space requirements for Installation. Figure 10 is an example where this 
type of information is necessary. 



Lr-^ 






PARTB 


□ n 


• 

• 

1 


PART A 


• 

• 

• 

1 


• 

1 i 


1 

1 

• 



PARTC 




Port D = A ♦ B ♦ C 



F igure 1 0. Assembly consisting of parts A, B , and C. 



Part A, part B and part C assemble together to make part D. From the 
diagram it can be seen that an assembly sequence that attaches part B to 
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part C and then part A to the pair to form part D will not work since part 
B will interfere with part A unless sufficient slack exists in the fit to 
allow part A to slide in from the side. This type of information would not 
be contained in the conceptual schema. 

For some products, component location information during 
manufacturing is important. Consider an electrical circuit again. Locating 
components on a circuit board is a very complex problem which is not 
currently well supported by CAM and ignored during CAD [Ref. 10]. Well 
placed components makes efficient routing of interconnections a simple 
task and therefore desirable. 

B. MATERIALS 

The other portion of the Material Requirements Planning Data is the 
raw material requirements listing. Figure 1 1 illustrates some example 
output for raw materials, again from the house construction example. The 
names of each item corresponds to well known building materials. For 
example, hardboard32 and hardboard34 are both hardboard material but 
have different dimensions and costs. To calculate requirements for 
shingle 1 2 and briclc88, effective areas were used. Shingles are 
overlapped during construction decreasir>g their effective area covered 
while bricks have concrete placed between them increasing their effective 
area. 

Based on dimensions of the product, cost per unit of raw materials, and 
design information about the raw materials of interest, the translator can 
generate the total amount of raw materials required and the total cost. 
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Figure 1 1 . Rav materials requirements listing. 
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In addition, information on allowed substitute materials could be kept 
in the database to take advantage of not only fluctuating cost, but also 
fluctuating inventory in order to get the most optimal cost product 
[Ref. 5]. For such a system to work successfully though, it must allow for 
CAD to specify a no-substitute condition when required. 

Using the Material Requirements Planning Data as input, CAM will 
generate the Scheduling Data necessary for final production. The 
Scheduling Data may then be used as input to an automated manufacturing 
system. 
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V. Expert Sijstem Shell Translator 



The Expert System Shell Translator will act as the interface between 
CAD and CAN. Figure 12 demonstrates how the translator relates CAD data 
output to CAN required irput. 




Figure 12. Expert System Shell Translator [Ref. 5]. 



Using the schema data and design data from CAD as input, the 
translator determines the necessary material requirements planning data 
to pass to CAN by making use of meta-knowledge and assembly data. A 
deduction-oriented rule-based system that starts with known facts and 
deduces new facts is said to exhibit forwards chaining [Ref. 1 11. Forwards 
chaining has the ability to reach many conclusions based on the data which 
is what we desire for our translator. These new conclusions are then used 
to search for more facts. When no more conclusions are possible, forwards 
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chaining is complete. This is just the type structure that would be needed. 
In addition, the translator performs various standards checks on the CAD 
data to ensure its correctness. Correctness is used here to imply the data 
meets all known requirements. These requirements may be based on laws 
of physics, laws of government, or anything else deemed appropriate. 

A. META-KNOWLEDGE 

Meta-knowledge can be defined as knowledge about knowledge [Ref. 12). 
It is used to guide the program in the selection of rules to apply. This 
knowledge may be either implicit or explicit. Explicit meta-knowledge Is 
sometimes employed using meta-rules. Meta-rules are used to guide in the 
application of other rules. An example would be the case where two 
possible rules could be applied, rule one and rule two. A meta-rule might 
state that rule two should be tried prior to rule one for some specific 
conditions. Implicit meta-knowledge is more common but more difficult to 
handle when changes are made to the program. Figure 13 shows an example 
of implicit meta-knowledge that could be used in house design and 
manufacture. 

Explicit is the fact that rule number one passes control to rule number 
three and rule number three uses recursion to find and handle all faces 
except those facing upwards. Implicit is the fact that when rule three 
eventually fails, we backtrack to rule number two. 

B. ASSEMBLY DATA 

The assembly data must provide sequencing information which makes 
use of not only the conceptual schema for relational data, but also 
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prototype data. The conceptual schema gives information on how the 
components fit together, but the prototype data may give new insight to 
priorities for those cases where assembly may take several paths. 
Consider soldering two electrical components, a transistor and a resistor, 
to a circuit board. The transistor Is much more heat sensitive than a 
resistor normally. Therefore, even though the schema would show no 
priority for ordering, data contained in the prototype for the transistor 
would show its heat limitations during soldering and would be used to 
ensure the resistor was placed on the circuit board first. 




Figure 13. Use of Mela-Knowledge. 



It is Important to remember that the term components is being used 
here in an abstract way. Items such as solder, grease, oil and glue may all 
be considered components of a product. 

Figure 14 is a sample of two assembly rules written in Prolog and used 
for the example house construction project. Note that both rules make use 
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of schema data as well as design data to provide sequencing. The schema 
data allows access to the frame attached to the face currently under 
construction while design data, in this case rK)rmal information, is used 
to prioritize the frames. 



f* do foundation frona •/ 
asscabl«(H,houn> 
is-a<Vfoc«, fooe), 
tronsL^xrtof <Vfac«, H >, 
norflKil_Z<Vfac«, 1>, 
contQ I nf ( Vf oca, L 
aaabar<Fr«a,L), 
i s.ja(Fraaa, frona >, 

propar tg(FroBa, Mter i a I -tgpa, ntypa ), 

assartz<oparation<FraM,asMabla, ‘aatorial typa: *,ntypa». 

/* do froaa parpandicular to grotnd */ 
assaabla(H,houM> :*■ 
is-ja<Vfaca, faca>, 
trons-portof (Vfoca, H >, 
norMl_V(Vfaca,0>, 
noTM I _2( Vf oca, 0 ), 
cantoins<Vfaca,L >, 
aeabar<Froaa,L), 
is^joCFroM, frona), 

propar ty<Froaa, Mtar i o I _typa, titypa >, 

assertz(oparation<FraBa,ossaabla, ‘aotariol iypa: ‘,ntypa>>. 



Figure 1 4. Assembly rules for house construction. 



In addition to sequencing instructions, assembly data can be used to 
determine component location. This is a very difficult problem in VLSI 
design and manufacture and is not well supported. The number of possible 
placements in many circuits makes an exhaustive search for the ideal 
placement impossible. In addition, there are many factors controlling 
placement including temperature limitations, position of edge connectors, 
position of busses, and speed restrictions which in turn restricts length 
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of Interconnections [Ref. 10). To find a recommended solution to such a 
problem, an expert system translator could make use of advanced search 
techniques currently employed in artificial intelligence programming such 
as depth-first, best-first or breadth-first. Because this is such a difficult 
problem, a system might allow a user to interact with it to aid in the 
search. 

C. STANDARDS DATA 

Standards data is used here in a broad sense and represents not only 
governmental standards required by Federal, State, local and Occupational 
Safety and Health (OSHA) regulations but also those standards, which if 
violated, will result in a product that may not function properly. 
Governmental requirements have always been with us and include federal, 
state and local regulations. But with the advent of CAD systems, new 
product designs have become increasingly complex. For instance, VLSI and 
multichip systems may be comprised of more than 250,000 gates [Ref. 13). 
Due to this increased complexity, it has become increasingly harder to 
detect design errors prior to manufacture and shipment to customers. 
Figure 15 shows data put together at IBM which relates circuit errors 
remaining to rate of errors detected. 

It is important to note that there exists a point in time when there is 
a marked decrease in design error detection even though the number of 
errors left remains relatively high. Design requirements can be included in 
the standards data to reduce the number of errors. 

For example, in VLSI design, the translator could check for loading of 
components, power supplies to components and all leads properly 
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connected. An example of this would be verifying that the fanout of each 
integrated circuit had not been violated. The fanojt of an integrated 
circuit is the number of gates that may be connected up to one pin of that 
integrated circuit without overloading the circuit and causing failure. This 
type of error could produce a product that functioned properly but had a 
shortened lifespan. It might only be found after numerous customer 
complaints and by that time the supply stock of the device could be 
extremely costly to replace. 





Figure 1 5. Error detection in VLSI circuit design (Ref. 7]. 



D. LANGUAGE OF CHOICE 

The terminology expert system has been used in our discussion on the 
CAD to CAM translator. True expert systems are written using artificial 
intelligence languages such as Prolog and belong to the class of artificial 
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intelligence applications known as knowledge-based systems [Ref. 5]. 
Figure 16 is an example of the structure of an expert system. 



DESIGN DATA 




ACTION 

Figure 1 6. An Expert System [Ref, 1 3] 



Prolog programs are actually rule-based where each rule represents an 
expert's knowledge of the problem. "Knowing" is reduced to being able to 
represent symbolically facts about the surrounding environment [Ref. 12). 
Data supplied to the expert system is then treated as facts and used to 
deduce more facts. An interesting feature of some of these rules is their 
apparent link to rules of thumb; these rules are known as heuristics 
[Ref. 121. 

What are the necessary qualities of an expert system? It must of 
course properly perform Its assigned tasks. The problem is that what is 
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proper to one expert may not be proper to another. For example, consider 
two builders each constructing a htxise of similar design. While most of 
the assembly priorities for each one would be similar, some differences 
could exist. If both builders are experts in their field, who is more 
correct? The advantage of using artificial intelligence languages is the 
flexibility to allow manufacturers to set their own priorities by modifying 
the expert system rule base without any change to the CAD or CAM 
systems in use. 

Expert systems also have the ability to explain their path of reasoning, 
although in today's systems the explanation is usually nothing more than a 
trace of rules sucessfully being fired. A rule is said to fire if enough 
facts are known so that the rule Is now proven to be true. 

When actually constructing an expert system, it is also Important that 
the code be partitioned according to the areas of concern. This is due to 
the fact that many experts, who would be expected to supply their 
knowledge to build the system, are limited in the breadth of their 
knowledge. Therefore, the code should be divided In such a way that each 
expert has responsibility for only that part pertaining to his area of 
expertise. 
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VI. Example Expert Shell Translator 



Appendix A is a diagram of a simple one room house which was used as 
a basis for this example expert shell translator. The prototypes for the 
house are based on the conceptual schema of Figure 3 and are shown in 
Appendix B. The actual prolog computer code for the translator is 
contained in Appendix C. Appendix D gives the translator output for the 
house construction example whose design is depicted in Appendix A. 



p«rt-of(hous*/tM«n). 

p«i-0((rooin,f«c*). 

pirt_of(r«o*/ioor). 

p4rt_ofCfM*,vMi>v). 

partjof(fw*,op«mng). 

part-ofCfaM/wvtring). 

partjo4(fio*,s(i)uccWln9). 

part_0f(fM»,insu1itton). 

tr«»-partofO<,Y) parijofO<,Y),!. 
tr«)s;_|Mr1ofO<,^ partjofO<^, 



Figure 1 7. Implementation of Conceptual Schema 



A. CAD DESIGN DATA 

Two of the computer code files in Appendix C are used to store data 
that would be expected as input to the translator from CAD. The schema 
file contains the schema data for the product of interest, in this case a 
one room house. Figure 17 shows some of the code from this file. 
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The last two rules in Figure 17 are used to specify transitivity in 
Prolog. Thus, if piece_A is part of piece_B, and piece_B is part of 
piece_C, these rules would imply that piece_A must also be part of 
piece_C. The use of such rules precludes the necessity to explicitly 
declare these relationships for all possible cases. 

The design schema and other design data, which are derived from the 
filled in applicable prototype slots, are contained in the housel file. 
Figure 18 demonstrates the relationship between one sample prototype and 
its corresponding data in the housel file. 

It can be seen that the use of a language like prolog makes it easy to 
convert the prototype data to usable data for the translator. 

B. STANDARDS CHECKS 

The first series of operations performed on the input data by the 
translator are those necessary to verify all applicable standards 
requirements are met. Figure 19 contains some of the standards from the 
standards file in Appendix C that were used for our one room house. 

Note that while the width and height standards for doors apply only to 
a door of type doorl, the depth standard for doors and the window pane 
quality standard apply to all doors and windows respectively. This 
demonstrates the flexibility of the language and our system. 

In addition to actual physical checks, two other types of standards data 
are also contained in the standards file. These are shown in Figure 20. 

The first is the comment_for data. For example, consider the rule 
comment_for(frame.wood.framing); this rule relates any frame made 
out of a wood product to the comment framing. This allows data that can 
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HOUSE 1 



PROTOTYPE 



f* facet */ 
i s_jQ< face 1 , face ) . 

dii«nsion( facet ^height, tt5, inches). 
di*ension<facet, width, inches). 
di»ension(facet, depth, t, inches). 

containsC facet, (sub_couer3,cover21 ). 

noma I _X < f ace t , 0 ) . 

noma I _V < f ace t , - 1 ) . 

noma I _Z < f ace t , 0 ) . 

par t-jof< face t , rooft t ) . 




dimensions: 


height 


1 15 inches 


vidth 


362 inches 


depth 


1 inch 




contains 


(sub«coYer 3 ^cover 2 1 


normel_X 


(0) 


normal-Y 


C-t) 


normel_Z 


(0) 


part of 


rooml 



* => attrinrte nvay be inherited 
from the cover prototype 



Figure 1 8 . Computer code derived from Prototype date. 
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niniBUi<door,ck>or1, width, 32, inches) 
II i n i MJiCdoor , door 1 , he i ght, 6, feet ) . 
»cD(iaui<door,door1,*idth,4, feet). 
MxinuiCdoor, door 1, height, 7, feet). 

• iniacai<door,-,depth,2, inches). 
MixiMja<door,_,depth,3, inches). 

einieiM<pane,-,qual ity,3). 



Figure 1 9. Standards checks. 




Figure 20. Comments on standards requirements. 



41 



only be verified during manufacturing to be output by the translator for 
the information of the CAM system. Sample output from Appendix D is 
shown in Figure 21. 



check for froee frcMeS 

grade earks oust be clearly visible on all frcaing 
eaeberr for inspection 

check for subucover subucover? 

check for cover coverb 

approved methods oust be used for building masonry malls 
mhen outside air temperature drops belom 40 d egree s fcrenheit 



Figure 2 1 . Transistor output following application of standards comments. 

The last data type contained In the standards file Is the checlc_for. In 
Figure 20. the rule check_for(sub_cover. tar_paper. [tar_paper1. 
tar_paper2. tar_paper3]) is used to verify that all sub_covers made 
out of tar_paper use tar_paperl, tar_paper2 or tar_paper3. In addition, 
those types of tar_ 4 >aper not used are listed as possible material 
substitutions. These lists of possible substitutions will become important 
again when determining raw material requirements later in this chapter. 
Figure 22 is example output data showing the use of this type standards 
check. 

Note that the design data currently has sub_coverH made from 
tar_paper2. Therefore, the other two types are listed as possible 
substitutes. For more realistic situations, substitutions of one material 
may affect other parts of the product. For example, consider a case where 
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several types of plastic have been listed as acceptable for the product 
piece in question. However, if a glue is being used on the plastic during 
the manufacturing process, different plastics may require different glues. 
Therefore, caution must be used in making substitutions. 



chock for sub-covor sub.jcovor14 

subucovtr subucovorH Mots roquiroMnts; alloMd substiUitts cro; 

- tar_pop«r1 

- ior-paporS 



Figure 22. Listing of substitutions by translator during standards checks. 

C. PRODUCT ASSEMBLY 

Once the standards checks have been completed, the translator must 
determine the product assembly sequence. To build our one room house, we 
would expect the frame to be erected first. Figure 23 is a listing of 
Prolog rules used to generate the assembly steps for the frame foundation 
and walls. 

The first frame selected for assembly is the foundation. This frame is 
located by finding a face which is part of the house being built and which 
also faces away from the ground. The trans_partof(Yface,H) will locate 
any face that is part of the house represented by the variable H, Then 
normal_Z(Yface,l) checks if the Z component of the normal to the face 
of interest is equal to one. If so, then this face is a floor. Figure 24 
shows example orientations of normals for our one room house. 
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f* do foundation froM */ 
osseable<H,house> 
isja<Vfoce, face), 
trons-portof <Vfoce,H), 
nonwl_Z<Yfoce, 1), 
conia i nsfVfoca, L >, 

■eaber<Fraae, L 
is_xi<Fra«e, froae), 

proper ty<Fra»e, aater i a I -type, Htype ), 

assertz<operation<FrcMe,asseable, *»ateriai type; *,htype>>. 

/* do froM perpendicular to ground 
osseBble(H,house> 
is_xi<Vface, foce), 
trons-por tof <Vfoce, H ), 
norea I _V(Vfoce, 0 >, 
norea I _2<Vf ace, 0 ), 
conta i nsfVfoce, L), 
i»eaber<Fra»e, L >, 
i S-ja<Fro»e, froee >, 

proper ty<Frane, Mter i a I .type, ntype >, 

assertz<operation<FraMe,asseable, 'Mteriol type: ‘,t1tgpe>>. 

asseable<H,house) 
i s_a<Vfoee, face >, 
trans.partof fVfoce, H ), 
nor«a I Vface, 0 ), 

noreal_2<Vfoce,0), 
conta i nsfVfoce, L >, 
neaberfFroae, L ), 
is^<Fra»e, froae), 

propertytFroae, aa ter i a I -type, ntype ), 

assertz(operotion(Fraae,asseable, ‘aaterial type: ‘,Mtype>). 



Figure 23. Hoioe sample assembly rules for translator. 
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Any normal parallel to a coordinate axis will have that axis' component 
equal to one in value if it points in the positive direction along the axis 
and equal to minus one if it points in the negative direction. For the 
example house, only the normals to the faces contained in the roof do not 
meet these requirements. It is not necessary that any face meet this 
requirement; it has been done only to simplify the example. 




Figure 24 . Use of normal vectors for house construction. 

Once the floor frame is in place, the second and third rules in Figure 
23 locate the wall frames and add them to the assembly list. The second 
rule looks for faces with normals parallel to the X axis by specifying that 
the Y and 2 components of the normal are equal to zero. Similarly, the 
third rule locates those faces parallel to the Y axis. In prolog, 
backtracking will force these rules to be tried until no more valid 
solutions are found. In this way, we locate all faces meeting the 
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specifications of each rule. Therefore, we only need be sure that each rule 
does indeed fully state all specifications of concern. 

In Figure 25, the rules which generate assembly data for the ceiling 
and roof are shown. 



c«i I ing froM ’*/ 
asscabl«<H,houM> 
is-a<Vfoctt, foo«>, 
trons;-pcr tof <VfoM, H >, 
nonw IJ2<Vf<ic«, - 1 ), 
conia i ns< Vf octt, L >, 

i s-flCFroM, froM >, 

proper ty<FroM, Mter i a I -type, ntgpe >, 

assertz(operation<FraM«asMable/Miterial tgpe: *,ntgpe>>. 

/* roof froM ♦/ 
assMble<H,houM> 
i s_fl<Roof , roof >, 
trons-pcr tof <Roof , H >, 
i s-a(Vfaoe, face), 
trons-pcr iof < Vface, Roof >, 
conta i rts< Vfoce, L >, 
eeeber<FroM,L>, 
i s-a<FroM, f rose >, 

proper tg<FroM, Mter I a I _type,ntgpe >, 

o»sertz<operqtion<F r Qe e ,a s5 eeble, ‘eoteriol type: *,f1type>>. 



Figure 25. Assembly rules for roof and ceiling. 



The only notable difference from our previous rules in Figure 23 is that 
faces associated with the roof are located by using the contains relation 
associated with the roof. This is a better method than using normals since 
the normal vector for a roof face can vary so much depending on the 
design of the house. The only framing now left to be performed is for the 
windows and doors. Figure 26 lists the rules that handle these two cases. 
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Both rules again check only parts of the house of concern. For the door, 
we determine its material and the two faces to which it is attached and 
save this information in assembly data. The same is done for the window 
except now the sill is treated as its frame. Again, both rules allow 
backtracking to get all occurrences of windows and doors as will all the 
assembly rules. 



Qss«Bbl«<H,houM> 
isua(Door,door>, 
trans_partof (Door , H ), 
property <Ooor, Mtcr i a I -type, ntyp* ), 

assertz(operation<Ooor,asseabie, ‘eater iai type; ‘,ntype», 
get-foces<Ooor, Face 1 , Face2 >, 

assertz<operation<‘ attach to; Facet, Foce2)>. 

osseeble<H,house> ;- 
is_a(U,e indoe), 
trons-^tof (U, H >, 
contains(U,L>, 
eeeber<8i 1 1 ,L>, 
is^<Sill,sill>, 

oss«'tz<opM^tion<Sill,ass^le,‘eindoe sill for; ',U», 
ge t-f oces<U, Face 1 , Face2 >, 

assertz(operation(“,‘- attach to; ‘,Foce1,Face2». 



F igure 26. Assembly rules for windows and doors. 



With all the framing in place, the faces must now be constructed. 
Figure 27 gives the code to handle this. Note that first the exterior and 
roof are performed, and then the interior room itself. For each area, the 
contains relation is used to get a list of ail parts, including faces, of 
each and the information is passed to an assembled, face) routine to 
erect only the faces. This is actually a series of routines that use both 
backtracking and recursion to determine the assembly data. Figure 28 
gives the routines that start the process. 
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cisseable<H,house> 
i s_jo<E , exter i or > , 
trons-por to f < E , H ) , 
contains<E,L), 
osseiibletL^ face). 

osseableCH^house) 
is_xi<R,roof ), 
trons-portof <R,H ), 
contains<R,L), 
asseebletL^ face). 
asseikble<H,house) 
is_a<R,roo«), 
trans_parlof<R,H), 
contalns<R,L), 
asseeb I e<L , f ace ) . 



Figure 27. Assembly rules for house faces. 



asseable<L,face) 

osseableKL^ [ 1, face). 

asseikble<L^face) 
eeaber<Foce, L ), 
noraal-ZCFoce, 1)^ 

Qssertz<operQtion<co —en t, *bui Id floor os lost step', _,_)), 
conta i nsCFoce, L 1 ), 
osseflible2< (LI 1, IL1 1, face). 

asseeble1<L,L1, face) 
neeber < Face, L ) , 
not(noTMl_Z<Face, 1)), 
delete<Foce,L,L2), 
conta i ns<Foce, L3 ), 
asseiiblel<L2, (L3|Ul,face), • . 

asseeble1<L,L1, face) 
asseeble2<L1,L1, face), ! . 



Figure 28. Assembly rules to prioritize and obtain face data. 
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The first and second rules in the list handle two different cases, 
non-floors and floors respectively. Any face pointing directly upward is 
considered a floor, of which, for our simple example, there is only one. 

The first rule takes precedence over the second rule and calls the third 
rule in Figure 28. The third rule simply finds all faces which are part of 
the area of concern but are not facing upward. Looking at the left side of 
the third rule, assemble 1(L.L1, face), L is the set of parts determined 
using the contains relationship earlier and LI is a set which we will 
construct. LI is initialized to empty when the first rule calls the third 
rule. When the third rule finds a face meeting its requirements, the 
COTitains relation is again used to determine the parts of the face. This 
set of parts is added to LI and assemble 1 recursively calls Itself 
looking for more faces. When none are found, we fall through to the fourth 
rule which calls assembleZ. The I symbol at the end of the assemble 1 
rules is there to prevent backtracking into them. We may only proceed 
forward into these rules. Backtracking is not necessary since we exit 
these rules only when all faces meeting our specifications are found. 

Looking again at the second rule in Figure 28, we put only one face in 
the list at a time and backtracking is necessary in the case where there is 
more than one possible floor face. This may or may not be desirable 
depending on the house design. For the other faces though, a list of all 
faces In the area of concern is created using recursion to allow a search 
for common building materials to better organize the assembly data. 

Figure 29 shows the rest of the routines necessary to complete the 
face assemblies. Note that assemble2 will recursively call itself until 
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asseiibl«2<FullJ.,L,fQce) 
i>e«b e r<FQce, L ), 
delete(Face,L,L 1 ), 
nenber ( I tea, Face 
is_a< I tea,sub_coMer>, 
proper ty( I tea, aater i a I _type, ntype ), 
operat i on< V, Ntype >, 

•eater (Face 1,Fu 1 1^>, 
aeater<V,Fcice 1 >, 

assertz<operation(ltea,asseable, 'aaterial type: ’,Mtype>>, 
de I ete( I tea, Face, Face2 
ossed3le2(Ful IJ., CFoce2|L1 1, face), ! . 

osseable2(Ful l-L,L, face) 
aeaber (Face, L ), 
delete(Face,L,L1), 
aeaber ( I tea, Face ), 
j S-ii( I tea, sub-jcover ), 
proper ty( I tea,aaterial-type,Mtype ), 

assertz(operation(l tea,asseable, 'aaterial type: ',Mtype)), 
de I ete( I tea. Face, Face 1), 
osseable2(Ful l_L. IFocellLI I. face). ! . 

osseable2(Ful l-L,L,foce) :- 
aeater(Face,L), 
delete(Face,L,L1), 

•eater ( I tea, Face), 
i s_a( I tea, cooer ), 

proper ty( I tea,aaterial_type,Ktype), 
not( I iquid(Htype,paint, 
operat i on< V, _, _, Htype ), 

•eater (Face 1,Fu I l-L), 

•eater (V, Face 1), 

ossertz(operot ion( I tea, osseable, 'aaterial type: ', Htype)), 
de I ete( I tea, Face, Foce2 ), 
osseable2(Ful l-L, (Face2|L11,face), I . 

osseable2(Ful l-L, L, face) 

•eater (Face, L), 
de I ete(Foce, L, L 1 ), 
aeater( I tea, Face), 
i sua( I tea, couer ), 

property( I tea, eater i a I -type, Htype ), 
notd iquid(Htype, paint, 

ossertz(operation( I tea, osseable, 'aaterial type: ', Htype)), 
de I e te( I tea, Face, Face 1 ), 
osseable2(Ful l_L, (Facet |L1 ], face), ! . 

osseable2(Ful l-L,L, face). 



Figure 29. Adeembtg rules to get list of covers and sub.xovers. 
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there are no face parts left. It then falls through to the last rule which 
succeeds and thus exits. Again, no backtracking is allowed or necessary. 

The first two rules in Figure 29 search for all sub_covers letting 
those sub_covers made up of material already used in the area of concern 
take priority over material not yet used. This is accomplished by 
searching through all the current operation predicates looking at all 
sub_covers already asserted that used the same material. If a sub_cover 
is found, then a search is performed over the list of all sub_covers in the 
area of concern to attempt a match. If a match Is found, then that 
material has already been used and It will take priority. If no match is 
found, then the next sub_cover in the next face is listed in the assembly 
data. 

The third and fourth rules provide a similar function for the covers 
except that covers made from paint are not yet allowed to be listed. The 
painting will be performed at the end of the house construction to prevent 
damage to the finish. 

The house is now close to completion. The window panes are inserted 
into place, the windows and doors are painted, and the doors are installed 
using the appropriate doorknobs and hinges. Now is the time to complete 
the painting of the faces that was previously skipped over. Figure 30 
shows the rules that handle this. 

Note that first the roof is painted, then the exterior and then last we 
paint any rooms. The paint_face routines are similar to what we have 
already seen. First, the ceiling, if one exists in the area currently being 
taken care of, is painted. Then the walls are painted and next the floor is 
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painted. Any face left over is painted at the end. This handles slanted 
surfaces such as the faces of the roof. The one room house is now fully 
constructed. 



ass«abic<H,houM> 
is-i]<R,roof >, 
irons-por tof <R, H >, 
contains(R,L>, 
painL.foc«<L). 

osMabi«<H«houM) 
i s_a<E, «xt«r i or ), 
trons_partof<E,H), 
contains(E,L>, 
painL.faco(L>. 

assaabio<H,houM> 
is_a(R,roott>, 
trons_^tof <Rj H ), 
contains<R,L>^ 
paint-foc«<L>. 



Figure 30. Assembly rules to generate paint data. 



D. RAW MATERIALS LISTING 

With the assembly data finished, the translator must now determine 
the raw material requirements to build the house. It does this by calling 
on the raw^aterials—needed rules. All the rules work in much the 
same manner. They first determine what extension is being considered, 
then the material of concern associated with this extension, and last the 
dimensions of this extension or area. All dimensior^ and areas are 
converted to a common unit of measurement prior to calculations. 

Those parts of the house associated with a face extension such as 
cover and sub_cover call a routine get— area to determine the surface 
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area involved. This special routine is necessary since faces may have 
areas such as doors, windows and openings which subtract from the total 
area of the face to be covered. This is handled by calculating a negative 
area for each face to be subtracted out prior to material requirements 
calculations. This negative area is then asserted as a fact for each face 
prior to actual entry into the raw_materials_ needed routines. An 
example calculation routine is shown in Figure 31. 



rcwunt«rials_nM<M 
i SLxi(Exttns. subucovar ), 
diaa ns ioo<Extans,dapth,Th, Thun its), 
prop«rty(Extcns,Mt«rigi_tgpa,natarial ), 

■otcriai (notarial ,_,Ht,Htuni ts,Ud,Uduni ts,Dp,Dpuni ts. 
Cost), 

aotch(Ht,Htuni ts,Ud,Udur)i ts,0p,0puii ts,Th,Thuni ts,Rct-Ht, 
Units1,ActJ4d,Ur)its2), 
gat.jaraa(Extans, fr«a,Uhi ts), 
conwart(ftct_Ht,Uhi tsi,ftet_Ht2,Uhi ts), 
conoart(Act-Md,Uhi ts2, Act.ild2,Uhi ts), 

HuB-Uhits is (Anao / <nct-Ht2 * flctJlcC)), 

TotJCost is (NiAJUhits * Cost), 

odd-Mtar iol (notarial ,NuaJJhi ts, TotJCost), foil. 



Figure 3 1 . Example material calculations for a sub-cover. 



One aspect of how the above example works not yet mentioned Is the 
call to match. This rule attempts to find a match between the dimensions 
of the material to be used and the thickness of the sub^over within a 
tolerance band. This is then used to determine the orientation of the 
material within the sub_cover. For example, if a board, measuring two 
inches by four inches by four feet, is used to build a sub_ cover which is 
four inches thick, then the two inch dimension would be used for area 
calculations. This type of checrk is necessary since the dimensions height. 
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width and depth are based on the view of the person determining the 
values. 

Once the units of material required and cost are determined, these 
values are added to the total by calling add— material. This rule first 
checks for any previous data on this material. If some is found, then a 
new total is calculated and saved. Otherwise, a new fact on the material 
of concern is created and saved. 

The only other unusual calculation performed during the material 
calculations is the one to determine the frame requirements along the 
center of the roof, between the roof and the ceiling. We need the height of 
the roof above the celling to make this calculation. This is easy to do 
though since the normal vectors for the roof faces are known. It turns out 
that each component of the normal is equal to the cosine of the angle 
created by the intersection of a line parallel to that component's axis and 
the plane containing the other two axis (Ref. 14). Figure 32 demonstrates 
this concept. In Figure 32, the 2 component of the normal vector is equal 
to the cosine of the angle created by the intersection of the normal and 
the plane containing the X and Y axis. With this fact, we can calculate the 
angle of intersection. Beta, of the roof and the house. Using the 
dimensions of the roof faces, it is now possible to determine the height of 
the roof above the ceiling since sin(Beta) is equal to the height of the 
roof above the ceiling divided by the length of the roof face. 

Once the amount of materials required and their costs have been 
determined, a Raw Materials Report is output. The report lists units 



54 



required for each material item and that item’s cost. Following the list of 
individual items is a total cost. Figure 1 1 gave a listing of this output. 




Figure 32. Distance of a normal vector along a plane. 



After the initial Raw Materials Report, the example translator 
examines possible material substitutions reported during the standards 
checks and makes each substitution, one at a time, to generate a new 
report. Figure 33 is an example of a modified Raw Materials Report output 
by the translator. It shows the cost for parts when sub_cover14 is made 
out of tar— paper! in place of tar_paper2. 
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t 

sub.jco<.*er14: substi 

{ 


tute tor_paperl for tar_paper2 


Rcnp Materials Report 


Ite* 


Cost 


Units Required 


doorl 


$16 


1 


•indoel 


$30 


1 


concretel 


$1737 


347.514 


tar_poper2 


$420 


3.36666 


gKX)d8 


$3582 


434. 194 


tar_papert 


$504 


3.36666 


hordbocird32 


$211 


1.54776 


hardboard34 


$147 


1.54722 


hordboordTS 


$200 


0.694444 


hard_eood9 


$900 


75 


sheath_paper24 


$64 


0.850277 


shingl«12 


$2020 


1616 


brickSS 


$4224 


3673.2 


paintQ 


$8 


1.0317 


paint 17 


$4 


0.551818 


paint21 


$12 


0.923095 


♦ 




♦ 


Total moteriai cost 


is $14079 









Figure 33. Rev Meteriele Report vith eubetitution. 
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IV. Conclusions and Recommendations 



A. CONCLUSIONS 

The goals of this research were to determine the design requirements 
for a generic CAD to CAM translator, design and implement a CAD to CAM 
translator for a particular product and in the process determine data 
requirements for CAD output and CAM input. 

A conceptual schema is a useful tool with which to model the product 
to be constructed. A simple hierarchical structure for the conceptual 
schema results in a design schema in which the translator can easily move 
from part to part, whether the part is abstract or real. Prototypes provide 
an ideal abstract model of the product design data to be used as input to 
the translator. 

Artificial intelligence (Al) oriented languages such as Prolog can 
readily use prototype structured data, even using slot inheritance to fill in 
unspecified values. In addition, many search methods have been designed 
and implemented using Al methods and they can provide powerful solutions 
to difficult problems such as the positioning of integrated circuits on an 
electronic circuit board. Their two drawbacks, when compared to other 
languages currently in use today are speed and availability. This is 
currently being remedied with the recent releases of affordable compiled 
versions of artificial intelligence languages designed for 
micro-computers. 

The translator is capable of performing certain standards checks on the 
design data, passing assembly information through to CAM and also 
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material requirements. The translator can also pass information that is 
useful to CAM at the time of production but cannot be verified prior to 
actual product construction such as temperature specifications. In 
addition, material substitutions can be recommended. Using Al’s search 
techniques, the translator can search for the best material combination 
while at the same time checking for the effects of material substitution. 

B. RECOMMENDATIONS 

The next step in this research is to use an actual operating CAD system 
to generate the design data and schema data for input to an expert 
translator. The test products designed by that CAD system should be ones 
for which there exists a product CAM system for additional research. 
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APPENDIX A 



HOUSE 1 DESIGN 



faces 




•t g axis 

► 

X axis 
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roof for nouse 1 



face 1 1 




(frami ng) 
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i 




31 feet 1 0 inchea- 


► 






CEILING 


, 4 inches 

± _t 


wood 8^ 




W 

1 t inches 


/ 




1 inch 


H — M 

1 1 1 inches 

hard board 7 8 



poi nt 1 7 



Parallel to X axis 



• 21 feet 1 0 inches. 



, framing 



CEILING 



woods 






1 1 inches 



I 



herdboard70 



1 1 inches 



face 9 



Parallel to Y axis 
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i 4 21 feet 10 inches N 
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face 1 0 



paint 21 



1 1 inches 

M H- 



hard_vood9 



.5 inches 
± 



1 1 inches 

— d M 



1 fo^ot 



floor 



■31 feet 1 0 inches' 



Parallel to X axis 



1 1 inches 



hard_wood9 



1 1 inches 






floor 



concrete 1 
foundation 



'21 feet 1 0 inches' 



Parallel to Y axis 
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APPENDIX B 



PROTOTYPES 




I contains | (...I 

♦* = > attribute is optional 




coordinates-X 



coordinates_Y 




coordinates^ 




contains 




part of 





♦♦ = > attribute is optional 
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name : 



properties : 

* finish color 






contains 



1...) 



part of 



* => attribute may be inherited 
from face prototype 




* ■> attribute may be inherited 
from cover prototype 
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name : 



properties : 

** subtype T 




coordinates^ 



coordinates^Y 

coordinates^Z 

contains [...] 

part of 



*»♦ = > attribute is optional 







ilii 


■ 


: name: 


properties; 


1 * finish color 


1 1 












dimensions : ! 


height 




width 








L— 




H 


♦♦ contains 


i...) 


normal -X 




norma l_Y 




norma l«Z 




part of 





^ => attribute may be inherited 
from cover prototype 

a* = > items made from the same prototype 
are listed accordiny to their position 
in the face 
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lEsi 


l>e openi^^^ 






name: 




properties ; 


geometry 














dimensions 














♦ ♦ radius 




♦♦ height ' 




♦ ♦ width 




* depth 








face 




♦ * face 




part of ' 





attribute mag be inherited 
from face prototype 

*♦ => attribute is optional 
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■ 


sub^cov(^ 


1 






E 

c 


e: 








properties : | 


material tgpe 




♦♦ finish color 








m 






1 dimensions : 1 


* height 




* width 




•• ^th 








'tmmmmmnmmmn 




( part of 1 1 



♦ => attribule mag be inherited 
from face prototype 

■*■*=> attribute is optional 




♦ => attribute may be inherited 

from face prototype 

♦ ♦ = > attribute is optional 
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■ 


■ 


III 


sty pe cover II 


■ 




nam»: 


properties ; 


material type | 


\ ** finish color 


1 










1 dimensions : [ 


♦ height 




* width 




♦* depth 












WMM 


imMmm 


1 part of 


T 




izzn 



* => attribute nvag be inherited 

from face prototype 

♦ ♦ => attribute is optional 







name: 



properties : 



material type 



* finish color 



dimensions : 



* height 

* width 



face 
* * face 

part of 



♦ => attribute may be inherited 
from face prototype 

*• => attribute is optional 
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nam 


e: 






part of 1 











nam»: 



properties : 


finish tgpe 




finish color 










M 






part of 












m 
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|||:type connectioniii'ilill 


name: 


properties ; 


geometry | 




dimensions : 


♦♦ radius 




♦♦height 




♦♦ width 




♦ depth 










face 




♦ ♦ face 




part of 





* ■ > «ttriby<e may be inherited 
from face prototype 

♦♦ => attribute is optional 









type electric^ 












name : I 


part of 


\ 
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p^rt of 
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APPENDIX C 



f* Interface Fi le */ 

start 

no t ( beg i n_s tds-check ) , 
not<beg i n.joperat i ons ), 
notCset-neg-xirea 
no t < ra«_jM ter i a I s-needed ) , 
notCeoter I a I s-repor t ), 
no t < repor t_subs t ) . 

begin-stds-jcheck isja<Extens, Intens), 

■riteC check, for nr i te( Inters >,Mri te< ‘ ' >,eri te(Extens),nl ,nl , 
check<Extens^ Inters), fal I . 

check<Extens, Intens) 

property<Extens,eaterial_tgpe,naterial ), 
mter 1 a I <Hater i a I , Spec_Hat , 
coM»ent_for< Intens, Spec_Hat, Class), 
coaeentfC I ass, CooMtent ), 
eriteC ‘ ),erite(Coiuient),nl,nl . 

check<Extens, Intens) 
property<Extens,»aterial_type,l1aterial ), 
eater iol (Material ,Spec_Mat, 
check_for< Intens, Spec-Mot, Class), 
eeeberdlater i a I , C I ass ), 

•riteC ■ ),erite<lntens),»rite<‘ ’ ),»ri te(Extens), 

■riteC* eeets reguireeents; allowed substitutes ore: ‘ ),nl ,nl , 

•eaber < 0 therJIa t , C I ass ) , 
not<Other_ttat * Material >, 

•riteC - ■ ),«rite(0therJ1at),nl,nl, 

assertz(substi tute(Extens,Other_Mat)>. 

check(Extens, Intens) 

property(Extens,Mter ial_type,Material ), 
eater i a I (Mater i a I , Spec-Mot, _, _, _, _, _, _, _, 
check_for( I ntens, Spec_Mat, C I ass ), 
no t(eeeber (Mater i a I , C I ass ) ), 

•riteC ' ),eri te( lntens),eri te( ’ ‘ ),eri te(Extens), 

•rite(* does not eeet requirements; allowed sii>stitutes are: ' ),nl ,nl , 
•enber(0ther-l1at, C I ass ), 

•riteC - ‘ ),wri te(Other_Mot),nl ,nl , 

ossertz(substi tute(Extens,0therJ1at>). 
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check<Extens,door) 

di»ension(Extens^Oi»ension,Z,Uni ts), 
■ini»Ui(door,Extens,OiBension,X,Uni tx>, 

MIX i MJi<door, Extens, 0 i aens i on, V, Uh i ty 
convert<X,Uhi tx,Hin,Units), 
converK V, Un i ty. Max, Un i is ), 

checK_standcirds<door, Ex tens, 0 i Mens i on, Z, t1 i n, ilox > . 

check<Extens,pone) 
property(Extens,qual i ty,Uatue>, 
MiniMUM<pane,Extens,qual i iy,hin>, 
check-s tondordsCpana , Exians, Ua I ua, H i n ) . 

check-standards ( lntens,Extens,0iMension,Uaiue,^1in,^k]x) 
noKhin > Ualue>, noUUalue > ttox), 

■rita<* * ),ari ta< tntans),ar i ta< * ' >,ari ta<Extans> 
•riteC passed - * ),»ri te<Dioiension),nl ,nl , ! . 

check_s tandords< I ntens, Extens, D i Mens i on, Ua I ue, h j n, Max > 
ttin > Ualue, 

■rite<* * ),*ri ted ntens ),<* ‘ ),iri te(Extens), 
■rite<‘ failed ainiaua - * >, 

•rite<OiMension),nl,nl, ! . 

check-standardsd ntens, Extens, D i Mens i on, tki I ue, M i n. Max > 
Ualue > Max, 

w'iter *), «r i ted ntens ),MTite<* ’ ),*ri te<Extens) 
•ritat' failed aoxiauM - ' 

•rite<DiMension>,nl,nl, ! . 

check_standards<pone,Extens,Ualue,hin) 
notfhin > Ualue), 

•rIteC •),erite<*pane * >,*rl te<Extens), 

•riteC passed quality check* >,nl ,nl , I . 

check_standards<pane,Extens,Uaiue,hin> 

Min > Ualue, 

partjof <Extens, U i ndOM ), 

i s_a( U i ndOM, M i ndOM ), 

eritaC * >,eri ta< ‘pone * ),«ri taCExtans), 

■riteC fai led ainiaua qual ity check* >,nl, 
erita<* - port of * >,ari te(Uindoa),nl ,nl , I . 

bag in.joparat ions 
is_a<H,house), 
no t ( do-osseab I y ( H ) > , 
notfoperat i ons_repor t<H ) ), 
fai I . 

do.xisseably(H> asseable(H,house>, fai I . 
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),nl 



operatlons_report<H> 
nl,nl, 

•ri te< '♦ 

•rile<' Production Sequence Report for * >, 

•rite<H),nl,nl, 
print_style<H), 

•rite<’* ♦■),nl^ 

operat i on<Extens, Funct i on, fittr i bute 1, flttr i bute2 

pr i n tjopero t i on < Ex tens , Func t i on , fl t tr I bu t e 1 , fl t tr i bu t e2 > , 

fai I . 



=*-),nl. 



'♦•),nl,nl,!. 

pr i nt_joperat ion(Extens,flttributa1, fit tribute2, fit tributes) 

•ri te<Extens>, 
naee<Extens,L 1 ), 
length<L1,H1), 
tob<15 - HI), 

•rite<Rttribute1>, 
ge t-ncHM_l enCRttr i bute t , N2 ), 
tob<15 - M2), 

•rite(Rttribute2), 
get_na«e_l en<flt tr 1 bute2, M3 ), 
tdb<17 - H3), 

•ri te<Rttribute3),nl, ! . 

get_noie_len<McaM,Len) 
nuaber<NcMe ), 
not( integer(Ncaie)), 
naee<NaM,L1 ), 
length<L1,H1), 

Len is <H1 - 4), ! . 

get_naee_len<NcMe,Len) 
nc»e(Ma»e,Lt>, 
length<L1,Len), ! . 



pr i nt^operat I on<coMkent, CooHDent, . 
nl, 

•ri te( '* 

•rite<’* 

•rite<‘ coiieont : ' ), 
i te<CoflM»ent ), 
nl, 

•riteC* 

•ri te< ' 



.) 
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print_style<H) 
proper ty<H, subtype, Hsty I e 
•riteC - house style is ‘ 

•rite<Hstyle),nl, 

•rite<’ and consists of ’ 
contains<H,L>, 

*rite<L),nl,!. 

print_style<H). 

f* routines to calculate surface area of faces token up by ♦/ 
t* doors, eindoss, openings, and connections ♦/ 

set_neg_area 

isuoCExtens, face), 

set_negjareo2<Extens, 0,0, feet), fal I . 

set_neg_area2<Face,L,firea,Uhits) 
focetExtens, Face ), 
not(»e*ber<Extens, L >), 
i s_a<Extens, • i ndoe ), 
d iaens i onfExtens, he i ght, Ht, Htun i ts ), 
di»ension(Extens,aidth,Ud,Uduni ts), 
convert<Ht,Htuni ts,Me*_Ht,Uni ts), 
conuer t <Ud, Udun i ts, Ne«_Md, Units), 

HeiU^rea is (flreo + <He^U^t ♦ Hew_Md)), 
set_neg_area2<Foce, [Extens|L],Ne«-Rrea,Uni ts), ! . 

set_neg_area2<Foce,L,flrea,Uhi ts) 
focetExtens, Face ), 
no t (eeeber <Ex tens , L) ) , 
i s_a<Extens, door ), 

d i Mens i on < Ex t ens , he i gh t , H t , H tun i ts ) , 
d i Bens i ontExtens, V i dth, Md, Mdun i ts ), 
conuert(Ht,Htuni ts,fie«_Ht,Uhi ts ), 
conuert<Ud,Mduni ts,he«_Ud,Uni ts), 

Ne«-Rrea is (Rrea -t- (Ne«-Ht * Ne«-Ud)), 
set-neg_area2(Face, lExtensjL J,Hee_flrea,Uhi ts), I . 

set_neg.jarea2(Face,L, Area, Units) 
foce<Extens,Face ), 
noUaeabertExtens, L) ), 
i s^CEx tens, connect i on ), 
geoaetryfExtens, rectcaigl e ), 
d iaens i onfExtens, he i gt>t, Ht, Htun i ts ), 
d i aens i on<Ex tens, a i dth, Ud, Mdun i ts ), 
conuertfHt,Htuni ts,Nea_>lt,Uni ts), 
conuert<Ud,Uduni ts,Nea_Ud,Uni ts), 
rtea-Rrea is (Rrea (Hea_Ht * Nea_Md)), 
set_negjarea2(Foce, (ExtensiL),Nea_Rrea,Uni ts), ! . 
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set»JTeg_flrea2<Face,L,flreo,Uni ts) 
foceCExtens, Face), 
noU»e«iiber<Extens, L ) >, 
i SjoCExtens, connect i on >, 
geoaetry<Extens, square >, 
dieensionCExtens, height, HI, Ktuni ts), 
conuert<Ht,Htuni ts,t1ee-Ht,Uni ts), 

Ne«-Rrea is <Rreo + <Hea_Ht * Ne«_Ht», 
set_neg_areo2<Face, (Extens|L],Ne«-A^,Uni ts), ! 

set_negjareo2(Face,L,firea,Units) 
focetEx tens, Face ), 
not<»e«ber<Extens,L)), 
i s^< Ex tens , connec t i on ) , 
geoaetry<Extens, square ), 
d i Mens i on<Extens, ■ i dth, Ud, Udun i ts ), 
conuert<Ud,Wdi»>i ts,«e*_Hd,Uni U), 

Ne«-A-ea is (Rrea + <Nev_Ud * Ne«-Ud)), 
set_neg.jcrea2(Face, [Extens|L],He«_nrea,Uni ts), ! 

set_neg_jareo2<Face,L,flrea,Uhi ts) 
face<Extens,Foce ), 
not<Me«ber (Ex tens, L ) ), 
i s_a(Ex tens, connect i on ), 
geo«etry<Extens, c i rc I e ), 
diMension(Extens,rodius,Rd,Fkluni ts ), 
convert(Rd,Rdini ts,He*_Rd, Units), 

Pi is 3.14159, 

He*_flrea is (ftrea + (PI * Mee_Rd * Mee_Rd)), 
set-neg_area2(Face, (Extens|L],Nee.Anea,Uni ts), ! 

set_neg_area2(Face,L,flrea,Uhits> 
foce(Extens, Face ), 
not(eeMber (Extens, L ) ), 
i s^(Ex tens, open i ng ), 
geoeetry(Extens, rectang I e ), 
d I Mens i on(Extens, he i ^t, Ht , Htun i ts ), 
d i Mens i on(Extens, • i dth, Ud, Udun i ts ), 
conuert(Ht,Htuni ts,Nee_Ht,Uni ts), 
corK*ert(Ud, Udun i ts, NoM_Ud, Un i ts ), 

Mee-fireo Is (Rrea + (hee-Ht ♦ Mee_Md)), 
set_neg_area2(Foce, (Extens|L],Ne«-flrea,Uni ts), ! 
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se t_neg_area2<Face, L, ftreo, Un i ts> 
foce<Extens, Fcx^e >, 
not<»e«iiber(Extens^L >>, 
i s^<Extens, open i ng ), 
geoee try<Ex tens, square 
diBtension<Extcns, height, Ht^Htuni is), 
coovert<Ht,Htuni ts,Mee_Ht,Uni ts), 

Nee_flrea is + <Ne«-Ht * NefP-Ht>>, 

set_negjarea2<Foce, iExtens|L],Ne«-Area,Uhi ts), ! 

set-ne9_xrea2<Face,L,firea,Uni ts> 
faca<Extens, Face ), 
not<»eiiber<Extens, L > >, 
i suq(Ex tens, open i ng ), 
geo*etry<Extens, square >, 
d i eens i on<Extens, ■ i dth, Ud, Mdun i ts ), 
convert<Wd,14duni ts,Ne«_Md,Uni ts), 

Nee-/V«a is (Rrea + (HeeJJd * Nee-Ud», 
set_neg_jorea2<Foce, iExtens|L],He«-f)rea,Uni ts), ! 

set-j>e9jarea2<Face,L,ftrea,Units) 
face<Ex tens. Face ), 
no U eeeber < Ex tens , L) ), 
i s^<Extens, open i ng ), 
geoae try ( Ex t ens , c i rc I e ) , 
d i eens ion<Ex tens, rad ius,Rd,Rduni ts ), 
conver t <Ftd, Rdun i ts , rte*_Rd, Un i ts ), 

Pi is 3.14159, 

t1e®_ftrea is + <PI ♦ Hee_Rd ♦ Mee_Rd)), 

set_neg_area2<Faca, CExtens|L),Nee_nrea,Uni ts), I 

set_neg_xirea2<Face,L,flrea,Uni ts) 

asser tz<ge t_neg_jorea<Face, Area, Un i ts )) . 

ge t_area< Ex tens, Area, Units) 
par tjof <Extens, Face ), 
d i eens i on(Extens, he i ght , Ht , Htun i ts ), 
d i eens i onCExtens, • i dth, Ud, Udun i ts ), 
get_ne 9 _area<Foce, Meg_Area, Un i ts ), 
conuert<Ht,Htuni ts,Nee_Ht,Uhi ts), 
convert<Ud,Uduni ts,He*J4d,Uni ts). 

Area is ((Nee.J1t * Ne«-Ud) - Neg-Area), t. 

get_area<Extens,Area,Units) 
portjof <Extens, Foce), 
d i eens i on<Face, he i ght, Ht , Htun i ts ), 
d i eens ion<Foce,*i dth, Ud, Udun i ts), 
get-neg_area<Face,Neg-Area,Uni ts), 
convert<Ht,Htuni ts,Me*_Ht,Uhi ts), 
conoert<Ud,Uduni ts,NeeJ4d,Uni ts). 

Area is <<tte<01t ♦ Me*_Ud) - «eg_Area), !. 
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getjoreaCExtens, Area, Un i ts) ;- 
par t_x)f (Extens, Face 
d i Mens i onCFoca, he i ght^ Hi, Htun i ts 
d i eens i on<Extens^ V i dth^ Md^ Mdun i ts >, 
get_negjareQ<Face,Neg_ft’^,Uni ts), 
convert<Ht,Htuni ts,Nee_Ht,Uni ts)^ 
conuerKUd, Udun i ts^ Nee_Ud^ Un i ts 
ft-ea is <<Mee_Ht ♦ Mee_Hd) - «eg_J»rea ), ! . 

get^area(Extens,Area^Uni ts> 
par <Ex tens. Face 

dlaension<Extens,height,Ht,Htunl ts), 
dinension(Face,«idth,Ud,Uduni ts), 
get_neg_area<Foce, Neg_flrea, Units), 
conyert<Ht,Htuni ts,Ne«_Ht,Uni ts), 
con</ert<Md,Uduni ts,Ne«J4d, Units), 

Area is <(Nee_Ht * Ne«-Ud) - rfeg_Area), • . 

naterials_report 
asser tz<»at_cost <0 ) ), 

nl,nl,nl,«irite<' Roe Materials Report* ),nl,nl, 

•rite<* Itee Cost Units Required* ),nl,nl, 

eater ial_l istChaterial ,MueJUni ts, I tee, .Cost), 

Hew-Cost is floor(lteeJCost), 
print-eat_report<Haterial,hkjeJUhi ts,Mee_Cost), 
update_eat.jcost<NeejCost), foil. 



»aterials_report 
eat_cost(Total ),nl ,nl, 
er i te< * 



erite<** 

«rite<* Total eaterlal cost Is $* ), 
•ritedotal ),nl, 

•rite<** 

■r i te< * ***** * ***** ** ** * ***** * *** ** * * 

fail. 



M.*),nl, 

♦*),nl. 



**),nl, 

)^nl ,nl ,r\{ , 



updQtejMLjcost(l teaJDost) 
rQtrcict(Aat^(:^ost<Toial 
Mew^Total is (Total + lte«JCost>^ 
assortz(Ml.jcost(Ne«^TotQl 1 . 
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print_»at_repcrt<l1aterial,rkiBLJUhits,Totj::os 
■ri te<naterial 
nameinaierlal ,L\>, 
length<L1,N1), 
tab<17 - Ml), 

■rita<‘$' ),»ri te(TotjCost), 
nc«e<Tot_Cost, L2 ), 
length(L2,N2), 
tab<15 - M2), 

•ri teCNimJLJni ts),nl ,nl , ! . 

report-subst 

nl,nl,nl, 

•riteC Start Roa Materials Report <■/ substitute)'), 
nl,nl,nl, fai I . 

report-subst 

subst i tute(Ex tens, Subs t-Mat ), 
rep I oceudata<Extens, Subst-Ma t ), 
not<ra«_Kiter j a I s_needed ), 
no t (m ter i a I s-repor t ), 
restore_data, fai I . 

replace_jciata<Extens,Subst_Mat) 
retract<»at_cost<_) ), 
retract(*aterial_l ist<_,_,_)), fai I . 



■*'>,nl, 

♦•),nl. 



♦■),nl, 

*■ ),nl,nl. 



restore.jdata 

relract<teap<Extens,Mterial_type,l1ateriai )), 
re tractfproper tyfExtens, eater i a I -type, _) ), 
assertz(property(Extens,Mterial-tgpe,Material )), ! . 



replace_dota<Extens,Subst_Mat) 
retrocKsubst I tutefExtens, Subst-Mat ) >, 
retract(property<Extens,eatarial-type,Mater iai )), 

•r I te< ' 1 1 II I < 1 1 1 1 1 

mriiei'* 

•riteC ■ >,*rite<Exter»s),erite<' : substitute ' ), 
■rite<Subst-Mat),eriteC‘ for ’ ),ar i teCHaterial ),nl , 
•ritef* 

■ri te ( ' ***** * ************** ** ** * ************* * *** * * 

ossertz(property<Extens, eater i ol -type. Subs t-Mat )), 
assertz<teep<Extens,eaterial-type,Material )), I . 
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f* Standards File *f 



• i niaca<door^ door width, 32^ inches). 

• iniMJw<door, door 1, height, 6, feet). 

MxieuB<door,door1,width,4, feet), 
wax i wuefdoor, door 1, height, 7, feet). 

■ iniiKJi<door,_,depth,2, inches). 
eaxiei0k<door,_,depth,3, inches). 

einieui<pane,-,qual i ty,3). 

coMMntfeosonrg, ‘opproued wethods eust be used for building eosonrg walls 
when outside air teaperature drops below 40 degrees farenhei t* >. 
co«*ent_for <couer , br I ck,aasonry ) . 

CO — on t-f or <couer, concrete-block, WQSonry). 
cowmen t_f or < sub jcouer , br i ck , wQsonry ) . 
cowwent_f or <sub_couer , concrete-b I ock, masonry ) . 

commenK framing, 'grade marks must be clearly visible on all framing 
members for inspection'), 
cowmen t-for( frame, wood, framing). 

check_for<sub_cover, tar-paper, Itor-paperl, tar_paper2, tar_paper3)>. 
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fisseabiy File *( 



/♦ start elth inforaatlon on face noreals ♦/ 
osseinble<H,house) 

assertz(operation<coM»ent/norMl for each foce I isted’, 
assfiriz(operation<'FAC£' ^ 'X' / V* , 'Z' )), 

assertz(operation<‘ ’ , * ' , ‘ ’ * )), 

is_fl(Foce, foce), 
nor*a l_X<Foce, X ), 
noreo I _V<Foce , V ), 
norea I _Z<Foce, Z ), 

QssertzCoperot i on<Foce, X, V, Z ) ) . 

t* start «ith froi« */ 
assetible<H,house) 

asser tz< opera ti on (coMRent, 'erect foundation and froee' 

t* do foundation froae ♦/ 
asseeble<H,house> 
isjitVfoce, foce), 
trans_par to f < V f oce, H ) , 
noreol_2<Vfoce, 1), 
contoins<Vfoce,L), 
eeaber (Froae, L), 
is_a<Fraee, froae), 

proper tyCFrow, eater i o I -type, ntype ), 

assertz<operatlon<Fraae,asse«ble, 'Material type; ',t1type)). 

/* do froMe perpendicular to ground ♦/ 
asseable(H,housa) 
is_a<Vfoce, foce), 
trons-portof <Vfoce,H), 
nor*a I _V < V f oce , 0 ) , 
noraa I _Z< Vf ace, 0 ) , 
contoins<Vface,L), 

MeMber(FraMe,L), 
isuo(FroMe, froee), 

proper tyCFroee, eater i o I -type, htype ), 

QSsertz<operation<Fraee,oss«Rble, 'eoteriol type: ',tttype)). 

osseable<H,house) 
is_a(Vface, face), 
trons-portof <Yfoce,H), 
norea I _X < V f oce , 0 ) , 
noreo I _Z < V f oce , 0 ) , 
con to i ns (Vf ace, L), 
eeeber <Fraee, L), 
i s_o(Fraee, froee ), 

proper ty<Froee, eater i o I -type, htype ), 

assertz<operotion<Fraee,osseable, 'Material type: ',Mtype)). 
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f* cei I ing frame ♦/ 
dsse«ble(H,house> 
is_a<Vface, face), 
trans-partof <Vfoce, H ), 
nonw I _Z<Vfoce, - 1 ), 
conto i ns<Vfoce,L ), 

■emberCFrome, L>, 
is^(Frame, frame), 

property<Frame,material_type,htype ), 

ossertz(operalion(Frame,assemble, 'material type: ',Mtype)). 

/* roof frame */ 
assemble(H,house) 
i s ja(Roof , roof ), 
trons-por to f <Roo f , H ), 
is^fVface, face), 
trons-por tof < Vfoce, Roof ), 
conta i nsfVfoce, L), 
member (Frame, L>, 
i s^CFrame, frame ), 

proper tyfFrome, mater i a I -type , II type ), 

assertz<operation(Frome,assemble, 'material type: *,Htype)). 

t* nom put doors in place */ 
assemble<H,house) 

ossertz(operation(comment, 'put door framing in place* ,_,_)). 

assemble(H,house> 
isja(Door,door), 
trons-por tof <0o^, H ), 
proper ty(Door, mater i a I _typ>e, ntype ), 

ossertz(operation(Ooor, assemble, 'material type: ',Htype)), 
ge t_f ocesfDoor , Foce 1 , Foce2 ), 

assertz(operation<", '- attach to: ',Foce1,Foce2)), 
par Lj3f (Door, Face3), 

ossertz(operation(", '- location' , 'relatiue to*,Faca3)), 
coordinates_X( local , Door, X,Uni ts_X), 
coordinates_V( local , Door, V,Uni ts_V), 
coord inates_Z( local , Door, Z,Uhi ts_Z), 
assertz(operation( " , ‘ X coord i note*, X, Uni ts_X)), 
assertz(operation(",' V coordinate' ,Y,Uhi ts-V)), 
assertz(operation(", ' Z coordinate' ,Z,Uni ts-Z>). 

/* put windom sills in place */ 
ossemble(H,house) :- 

ossertz(operation( c omm cn t, 'put mindom framing in ploce', _,_)). 
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asseable<H,house> 

is_a<U,sindov>, 

lrans_partof<W,H), 

contains<U,L>, 

■eaber<Si 1 1 
is^<Si 1 1 ,si 1 1 >, 

dssertz<op«ratior)<Si I l,asse*ble, '«indo« si 1 1 for: ',W)>, 
get_f oces<U , Foce 1 , Foce2 ), 

ossertzCoperatiooC ■/- attach to; ' ,Focel,Face2>), 
part_of (U, Fac«3 ), 

assertz<operatioo<* location' , 'relotl^« to’,Face3)>, 

coord inates_X< local tin i ts_X>, 

coordinotes_V< local ,H,V,Uni ts_V), 

coord inates_2< local ^U^Z^Uni ts-Z)j 

ossertz<operatloo< ’ ‘ ■ X coordinate' ,X, Uni ts_X>), 

ossertz(operation< ' ' / V coordinate' ,V, Uni ts_V)>, 

ossertz<operatioo<' ', ' Z coordinate',Z,Uhi ts_2>). 

/* put up exterior siding */ 
asseable(H,house> 

assertz<operation<co— e nt, 'put up exterior siding' 

asseable<H^house> 
i s_a<E , exter i or >, 
trans-partof <E,H>, 
contains<E^L), 
asseable<L, face>. 

/* put up roof ♦/ 

Qscaeh I a(H, house ) 

assertz<operotlon<co— o nt, 'put up roof 

osseBble<H,house> 
is_jQ<R,roof ), 
trons-por tof <R, H 
contains<R,L), 
asseableCL, face). 

/* put up faces for each roon ♦/ 
asse*ble<H,house> 

ossertz<operation< c o— cM it, 'put 14) faces for each rooa', 

asseable<H,house> 
is_a(R,roo«), 
trons-portof <R, H ), 
contains<R,L), 
asseeb I e<L , face > . 

/* put 14) eindoos ♦/ 
oss«iible<H,housa> 

ossertz<operatlon<coMient/put eindovs in place', _,_)). 
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osse«ble<H,house> 
is^<U^»indo«>, 
trons-por tof <U, H ), 
contains<U^L), 

»eaber<P,L>, 
is_o<P,pane), 
ne«ter(C,L>, 
is_a( Crease), 

assertz(operaiion<U/coaplete usi ng*,P,C». 

/* taka cara of finish on aindoas and doors */ 
asseable<H,house> 

ossertzfoperationfcowkeni, ‘put finish on aindoas and doors’ 

assaabla(H,housa> 

finish. 

/* take care of door knobs and hinges */ 
asseable(H^house) 

assertzfoperotionf c oaa on t, ‘put on door knobs and hinges’ 

asseable(H,house> 
is^(0,door), 
trons-por tof <D, H >, 
asseab I a(0, door > . 

/* take core of paint on faces ♦/ 
asseab I e<H^ house) 

assertz(operation(coaa en t, ‘put final paint on faces’,-,-)). 

asseab le<H, house) 

IS-o<R,roof ), 
trans-partof<R,H), 
contains<R,L), 
paint— foca<L). 

asseable<H, house) 
is-a<E, exterior), 
trans-partof (E, H ), 
contains<E,L), 
paint-faca(L). 

asseab I e(H, house) 
is-a<R,rooa), 
trans_partof (R, H ), 
contalns<R,L), 
paint-foca(L). 
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/• routines to put up sub.jCOuers and covers for a given */ 
/* list of faces supplied as first argument; these routines */ 
/* look for C O — o n Mterlals to help set priority; all */ 
/* subjcovers are handled prior to covers; */ 
f* covers ehich are paint ore left to be perforeed at a */ 
/* later tiee; all sub^covers and covers */ 
t* associated elth the floor ore performed last ♦/ 



osseeblefL^ face) 
osseeb I e KL, H , face ) . 

osseableCL, face) 

•eebertFoce, L), 
noreal_Z<Face, 1), 

ossert2<operation<coMKnt/bui Id floor as lost step’, _,_)), 
contains<Foce,Ll ), 
osseeb I e2< IL 1 J , [ L 1 ) , foce ) . 

osse«ble1<L,L1, face) 
eeeberfFoce, L), 
not<nor»al_Z<Face, D), 
delete<Foce,L,L2), 
contalns<Foce,L3), 
asse^let<L2, (L3|L1 1, foce), ! . 

osseebleKL,L1,face) 
asseable2<L1,L1,foce), ! . 

asseable2fFul l-L,L, face) 
eeeber CFoce, L ), 
delete<Foce,L,L1), 

»eaber(ltea,Face ), 

is_a< I te*,sub^cover ), 

proper ty< I tea, eater ial_type,Mtype), 

operat i on<V, ntype ), 

•eaberCFocef ,Ful l-L), 
aeaber<V,Foce1), 

assertz<operation< I tea,asseable, 'aaterial type: ’,htype)), 
deletef I tea, Face, Face2), 
osseable2<Ful IJ., [Face2|L11,foce ), \ . 

osseable2(Ful l-L,L,face) 
aeaber<Foce,L), 
delete<Face,L,Ll), 
aeaberf I tea,Foce), 
i s^< I tea, su b u co ver ), 
propertyt I tea,aaterial_type,Mtype), 

ossertz(operation< I tea, asseable, ’aaterial type: ',Htype)), 
deletet I tea,Foce,Focel ), 
osseable2<Ful IJL, (Face1|Ll),face), ! . 
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osse«ble2<Ful l_L^L, foce> 

■enber<Face,L>^ 
de I ete<Face, L, L 1 ), 
i«Mber< I leM^Foce)^ 
is_a< lie*, coyer), 

proper ty( I tea, Mter i a t _type, titype >, 
not< t i i d(t1type, pa i nt, >, 

opera t i on<V, Mtype ), 

*eaber<Foce1,Ful l-L), 

»eaber<V,Foce t ), 

assertz<operation< ltea,asseable, 'aaterial type: ',htype>), 
delete< I tea, Face, Face2), 
asseable2<Fui l_L, (Foce2|L1 ), face), ! . 

osseable2<Ful l_L,L, face) 
aeaberCFoce, L ), 
delete<Foce,L,L1), 
aeaber< I tea, Face ), 
is_a< I tea, coyer ), 

proper ty( I tea, aater i a I -type, htype ), 
not<l iquidttttype, paint, 

ossertz(operation<ltea,asseable, 'aaterial type: *,Htype)), 
delete( I tea,Foce, Focel ), 
osseable2(Fui l-L, IFocel |L1 1, face), ! . 

osseable2(Ful l_L,L,face). 

f* take care of finishes ♦/ 
finish :- 

property<F, f inish_type,Ftype), 
proper ty<F, f i n i sh_jco I or, Fco I or ), 
assertzCoperat i on<F, f i n i sh, F type, Fco I or ) ) . 

f* asseable door knob */ 
asseable<D,door) 
proper tyCD, knob-type, Ktype ), 
ossertz(operat i on<D, asseab le, knob, Ktype ) ) . 

/* assak>le door hinges ♦/ 
asseable(0,door ) 

proper ty < D , h i nge_type, H type ) , 

osser tzCoperotionCD, osseable, hinge, Htype)). 



88 



■g 



routines to apply paint to faces; acts on covers only ♦/ 



paint-face(L) 

»e«iber<Face,L), 
nor*al_2(Foce,-1 ), 
conta i nsfFoce, L 1 ), 

•eaber (Cover ^ L 1 
i s_a(Cover, cover 

proper ty < Cover , ea ter i a 1 -type, M type 
1 iquid<Mtype,paint,_,_,_,_,_>, 
asserlz(operation(Cover,paint, ‘eater iol type: 
delete<Foce,L,L2), 
paint_foce(L2>, ! . 


', ntype)). 


paint_face(L> 

»eaber<Foce,L), 
nortw 1 _V<Foce, 0 ), 
nor*a 1 _Z<Foce, 0 ), 
conta i nsfFoce, L 1 ), 

»eiiber<Cover,L 1 ), 
i s^CCover, cover ), 

proper ty<Cover, »oter i a 1 -type, ntype ), 

1 iquid<ntype,paint, 

asseriz<operation<Cover,paint, 'Mterial type: 

delete<Foce,L,L2>, 

paint_foce<L2), ! . 


', ntype)). 


palnt_face<L> 

•eaber (Face, L), 
norea 1 _X(Foce, 0 ), 
noTM 1 _Z(Foce, 0 ), 
contains(Face,L1>, 
ee«ber(Cover,L 1 ), 

1 s_a ( Cover , cover ) , 

property(Cover , eater i a 1 -type, fitype >, 

1 iquid(ntype,paint,_,_,_,_,_), 
assertz(operation(Cover,paint, 'eater iai type: 
de 1 e te(Foce, L , L2 >, 
paint_foce(L2), ! . 


', ntype)). 


paint_foce(L) :- 
■eeber(Foce,L), 
norea 1 _2 ( Face , - 1 ) , 
conta 1 ns(Foce, L 1 ), 
eeeber(Cover,L1 >, 
i s_a (Cover, cover >, 

property(Cover, eater i a 1 -type, ntype ), 

1 iquid(Htype,paint,-,-,-,-,-), 
assertz(operation(Cover,paint, 'eaterial type: 
delete(Foce,L,L2), 
paint-foce(L2>, 1 . 


', ntype)). 
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pajnt-foce<L> 

Beiiber<Face,L), 
conla i ns<Focej L 1 
•aaber < Couor ^ L 1 ) ^ 
i SjO<Cover, cover 

proper ty<Cover^ eater i a I _type^ ^type 
n qu i dOllype, pa i nt, 

assertz<operation<Couer^paint, 'eaterial type: ',Htype>), 

delete<Foce,L^L2>^ 

paint-face<L2>^ ! . 

paint_faceCL>. 

/* routine to get the two faces ehich on itee is associated eith */ 
geU.faces< I tea^Face1^Foce2> 
face< I tea^ Face 1 ), 
face< I tee,FQce2), 
not<Focel = Foce2)J. . 
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f* naterlals Fi le V 



f* Mterials for doors ♦/ 
rcNLjMterials-needed 
i s_a<Ex tens, door 

■Q ter i a KExtens, Cost ), 

odd-iMterioi <Extens, 1,Cost>, foil. 

ra*_»ater i a I s_needed 
i s-of Extens, door >, 
proper ty<Extens, f i n i sh_ type, Pa i nt ), 

I iquid<Paint,_,RreoLjCou,RreaJLJni ts,_,_,Cost>, 
dieension<Extens,helght,0rg_>1t,HtJUni ts>, 
d ieens ion<Extens, ■ idth, Org_Ud, UdJJni ts ), 
dieension<Extens,depth,Org-Dp,DpJUnl ts), 
conuert<Org_Ht,HtJUni ts,Ne«_Ht,flreaJLIni ts ), 
convert<Org_Wd,MdJJni ts,rie*_Wd,fireaJUni ts), 
conuert<Org_Dp,DpJLIni ts,Ne«J3p, Ar^eoJLIni ts). 

Area is <<2 ♦ Hee_Ht ♦ MeiUid) + <2 ♦ iiee_Ht ♦ ttee_Dp) + 
<2 ♦ MeeJW ♦ NeeJDp)), 

HueJUnits is (Area / Areo_Cov), 

TotJCost is <Mu»JUnits ♦ Cost), 
odd_»aterial<Paint,hue.jUni ts, TotJCost), fai I . 

/* Materials for windows */ 
raw-Materials_needed 
i s^tExtens, w I ndow ), 

water i a KEx tens, Cost ), 

oddJwateriaKExtens, 1,Cost), fai I . 

rowjMterials-needed 
i s_a<U i ndow, w i ndow ), 
par t_of (Extens, M i ndow ), 
is-ofExtens,si 1 1 ), 
property<Ex tens, f I n i sh_type. Pa i nt ), 

I iquid<Paint,_,flreaJCov,flreQ_Uni ts,_,_,Cost), 
convert<flreajCov,flreoJUni ts,Hew_Area, feet), 

New-Areo2 is <<New-Area * New-Area) / AreaJCoo), 
dlMenslon<Uindow,hei^t,Org_Ht,HtJUnl ts), 
d i wens i on < U i ndow , w i d th , Org-Ud , UdJUn i ts ) , 
par t_of <H i ndow, Face ), 
di wens ionfFoce, depth, OrgJOp, Op Jdni ts), 
convert<Org_Ht,HtJUni ts,hew_Ht,AreaJUhl ts), 
conoert(0r9_Ud,Ud-Uni ts,New_Ud,AreaJLIni ts), 
convert<OrgJDp,DpJLIhi ts,Mew_Dp,fl'«»JLIni ts), 

is U2 * New_Ht * New^) <2 New_Ud * Hew-Dp)), 
HiaJUnits Is (Area / AreojCoo), 

TotJCost is (HuwJUnits ♦ Cost), 
addjKiterial (Paint, NuaJLIni ts, TotJCost), fail. 
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/♦ Mterlals for froaes; ossines 1 square foot of area */ 
f* requires a 1 foot length of froae wood */ 

raa_aaterials_needed 
i s_a<ExtenSj froae ), 

d i aens i on<Extens, he i ght, He i ght j HtJUn i ts ), 
d i aens i onCEx tens j a i dth, U i d th, UdJUh i ts 
conuert<Height,Ht_Uni ts,Mea_Height, feet), 
conoert<Uidth,UdJJni ts,HeaJJidth, feet), 
property<Extens,aaterial_type,ttaterial ), 

material fhaterial ,«iood,Ht,Htuni ts,Ud,Uduni ts,Dp,Opuni ts, _,Cost), 
longest^iaension<Ht,Htuni ts,Ud,l4duni ts,Dp,Opuni ts,Len,Lenuni ts), 
conuert(Len,Lenuni ts,Nea_Len, feet), 

Brea is (Hea^ight * Hea-Midth), 

NuaJUnits is (Rrea / Nea_Len), 

TotJCost is (MuaJUnits ♦ Cost), 
odd-aoterioKHoteriol ,NuaJUhi ts, Tot-Cost), foi I . 

raa_aaterials_needed 
is_a<Extens, froae), 
notfd i aens i onfExtens, a i dth, _, _) ), 
not<d i aens I on<Extens, he i ght, _, _)), 
property<Extens,aaterial_type,Material ), 

M>terial<haterial,aood,Ht,Htuni ts,Ud,Uduni ts, Dp, Dpuni ts, Cost), 
geLjarea<Extens,Area,Uni ts), 
coouert<firea,Uhi ts,Hea_Hrea, feet), 

Nea_Hrea2 is <(Hea-Hreo * Nea_Area) / ft’'ea), 

longest^iaension<Ht,Htuni ts,Ud,Uduni ts,Dp,Dpuni ts,Len,Lenuni ts), 
conuert<Len,Lenuni ts,Nea_L«^, feet), 

MuaJUnits is <Rrea / MeaJLen), 

Tot-Cost is (MuaJUnits * Cost), 

odd-aat&'ia I (Material ,MuaJUni ts, TotJCost), fai I . 
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rtw_»aterials_needed 
nor«a I -ZCFoca, - 1 ), 
par t_jof (Extens, Face 
is_o<Extens, frame), 

property(Extens,material-type,haterial >, 

•aterial (naterial ,aood^Ht^Htuni ts^Ud^Uduni ts,0p,0puni -,_,Cost>, 

longestjdiaension<Ht,Htuni ts,Hd,Uduni ts,Dp,Dpuni ts,Len,Lenuni ts>, 

con«.*ert(Len,Lenuni ts,Ne«-Len, feel), 

isjQ<Roof,roof ), 

part_of<Foce2,RMf ), 

is_a<Foce2, face), 

par t^f (Extens2, Face2 ), 

is_a(Extens2, froee), 

norea I _Z( Foce2, CosZ ) , 

dleertslon<Exlens2, height, Ht_face,Ht_face-uni Is), 
conuert(Ht_foce,Ht_foce_ijni ts,Nee_Ht_face, feet), 
d i eens i on<Ex tens2, • i d th, Ud_face, Md_f ace-jun i ts ), 
conuert<Ud_face,Ud_fcx;e-uni ts,Nee_Ud_face, feet), 

SInZ is <sqrt<1 - <CosZ ♦ CosZ))), 

firea is <SinZ ♦ Nee_Ht_foce ♦ Nee-Ud-face), 

Rreo2 is <SinZ ♦ rteeiJit-fcice ♦ CosZ * hee_Ht_face * 2), 

Tot_flrea is Area + Areci2, 

Hue-Units is <Tot_firea / He«J.en), 

ToUCost is (Hue-Units * Cost), 
odd_eaterial(Haterial,HueJUhits,TotJCost), fai I . 
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rcw_iKiterials-needed 
nor»ol_2<FQce,-1 ), 
part_of (Extens, Face >, 
is-xiCExtens, frame), 

property(Extens,material-type,naterial >, 

material fhateriol ,«ood,Ht,Htuni ts,Ud,Uduni ts,Dp,Opuni ts, Cost ), 

longest^imension(Ht,Htuni ts,Ud,Uduni ts,Dp,Opuni ts,Len,Lenuni ts), 

conoertfLen,Lenuni ts,NemJ_en, feet), 

is_a<Ftoof,roof ), 

par t_of <Foce2, Roof ), 

is_a(Face2, face), 

par t_of <Extens2, Foce2 ), 

is_a<Extens2, fram e ), 

norma I _Z<Foce2, CosZ ), 

not <d i mens i on<Extens2, he I ght , _, _) ), 

d i mens i on<Foce2, he i ght , Ht_f ace, Ht-f oce-un i ts ) , 

convert<Ht_foce,Ht_facejuni ts,Mem_Ht_face, feet), 

d i mens i on<Foce2, width, Ud_foce, Ud_foce^un its), 

conoert(Ud-face,Ud-focejuni ts,He«-Ud-face, feet), 

SinZ is <sqrt<1 - <CosZ ♦ CosZ))), 

Area is <SinZ ♦ Mem_Ht_foce ♦ hem_Md_face>, 
flreoZ is <SinZ ♦ Hem_Ht_foce ♦ CosZ ♦ Ne«-Ud_face), 

Tot-flrea is Area + fireoZ, 

NumJUnits is <Tot_Rrea / Mew-Len), 

Tot_Cost Is (hiaLJUni ts ♦ Cost), 
add_material<Haterial,NumJJhits,TotJCost),fai I . 

/* frame material of type "filler" */ 

ram_materials_needed 
i s_a(Extens, frame ), 

property<Extens, material-type, Material >, 

f i I lerfhaterial ,-,Uol ,Uolmi ts,_,_,Cost), 

get-orea<Extens,Rrea,Uni ts), 

conoert<Uol ,Uoluni ts,Nem_Uol ,Uni ts), 

rtem_Uol2 is <<Mem_yol ♦ Mem-Uol ♦ Hem_yol )/<t»ol ♦ Uol )), 

di mens ion<Extens, depth, Op, Opuni ts), 

conoert<Op,Dpuni ts,He«-Dp,Uni ts), 

NumJUhits is * Ne«-Dp / Me«-Uol2), 

TotJCost Is <HumJUnits * Cost), 

odd-moterial OViterial ,HumJUhi ts,TotJCost ), fai I . 
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r<MP_iMterials_ne«<te<j 
i s^CExtens, sutxjcouer 
d I *ens I oo<Extens, depth, Th, Thun I ts ), 
property(Extens,Mterial-type,haterial ), 

•a terial (Material, _,Ht,Htir)its,Ud,Udunits,Dp,Dpuni ts, Cost), 

■atch(Ht,Htuni ts,Ud,Uduni ts,0p,0p^i ts,Th,Thuni ts,nct_Ht,Uni tsi, 
flct_Hd,Uhl U2), 
ge t_orea<Ex tens. Area, Un i ts ), 
conuert(flct_Ht,Uni tsl,f»ct_Ht2,Uni ts), 
conuert(flct_lkl,Uni ts2,flct_Ud2,Uhi ts), 

MunUUnlts is (Area / <Act_Ht2 ♦ Act_Wd2)), 

Tot-Cost is <Hu»JUhits ♦ Cost), 
odd_»aterial (Material, Mu*JUhits,TotJCost), foil. 

roe-iMterlals-needed 
i s.jo(Extens, sub-couer ), 
not (d i Mens i on(Extens, d^th, Th, Thun its)), 
property(Extens,aatarial_type,Material ), 

•aterlal(Material,_,Ht,Htuni ts,Ud,Udunl ts,Dp,Dpunl ts, Cost), 

ge Ljcrea<Extens, Area, Uni ts), 
convert(Ht,Htuni ts,He«-Ht,Uhi ts), 
conuert(Ud,Uduni ts,Ne«_Ud,Uni ts), 

HueJJnits is (Area / (Me«-Ht * Mee_Ud)), 

Tot-Cost is (NueJUnits * Cost), 

add-eater ia I (Mater i a I, MuaJUni ts,Tot-Cost), fai I . 

roe_eaterlals-needed 
i s-a(Exlans, sub-eouar ), 
proper ty(Ex tens, eater i a I -type, Po i nt ), 

I iquid(Paint,-,Area-Cou,Ar«aJLJni ts,-,-,Cost>, 
ge t-orea(Ex tens. Area, Uni ts), 
convert(Area_Cov,AreaJLIni ts,Nee-A^,Uhi ts), 

Me«-Area2 is ((Me*-Area ♦ Mee-Area) / ft~ea_Cou), 

NueJUhiU is (Area / NM-Areo2), 

Tot-Cost is (MueJUnits * Cost), 
odd_eaterial(Paint,NueJLIni ts,Tot-Cost), fai I . 

ro«_eaterials-needed 
i s-xi(Ex tens, cover ), 
d i eens i on( Ex tens , dep th, Th , Thun i ts ), 
property(Extens,eoterial-type,Material ), 

eater iai (Mater ial,-,Ht,Htuni ts,Ud,Uduni ts. Op, Opun i ts, Cost), 

eatch(Kt,Htunl ts,Md,Uduni ts,0p,0pml ts,Th,Thunl ts,Act-Ht,Unl tsi, 
Act_Ud,Uhits2), 
get-flrea(Extens, Area, Un i ts ), 
convert(Act-Ht, inches, Act-Ht2,Uni ts), 
convert(Act-Wd, i nches, Ac t-Md2, Units), 

Nt*JUnits is (Area / (Act_«t2 ♦ AcL_Ud2)), 

Tot-Cost is (MueJUnits * Cost), 
odd-eateriaKMaterial ,Nue-Uni ts,TotJCost), fail. 
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ra«_Baterials_needed 
i sjQ<Extens, cover >, 

not<di«ension<Extens,clepth,Th,Thuni ts)), 
property<Extens,Mterial-typejHaterial 

»aterial<naterial,_,Ht,Htuni ts,Wd,Mdunits,Dp,Dpuni ts, _,Cost>, 

get.jarea<Extens^n[^jUn i ts 
convert<Ht,Htuni ts,Mee_Ht,Uni ts>, 
cortvert<Ud,Uduni ts^Ne«_Ud, Units), 

NumJUnits is (Area / <Ne*_Ht ♦ He*_Hd>>, 

TotJCost is tNuMJUhits * Cost), 
add-JKiterial<f1aterial,NuMJL)nit5,TotJCost), fai I . 

ro«_»citerials-neected 
i s_jQ<Extens, cover ), 
proper ty<Ex tens, eater i a I -type. Pa i nt ), 

I iquid<Paint,_,flrea_Cov,flreaJLIhits,_,_,Cost), 
get-area<Extens, Area, Un i ts >, 
convert<AreajCov,ft~eaJL)ni ts,Ne«-Area, Units), 

Ne«_Areo2 is <<Me*_Area * He«_Area) / AreojCov), 

NueJUhits is <Area / Ne«-Area2), 

TotJCost is <MuiLJUnits ♦ Cost), 
addJMterial<Paint,NuejUni ts, TotJCost), fai I . 

addJMter iaKHaterial ,NueJUni ts, Tot-Cost) 
retroct<aaterial-l ist<naterial,Old-HiaLJUhi ts,OldjCost)>, 
Ne«-NueJUnits is <Old_NueJUhi ts NunJUhits), 

NewjCost is (OIdJCost ♦ TotJCost), 

ossertz<eaterial-l istOlaterial ,He«.NueJUhi ts,Ne«JCost)), I . 

add-*aterial<naterial,NueJLInits,Tot-Cost) 
assertz<eaterial-l istCnaterial,HufcJUni ts, Tot-Cost)), ! . 



/* eateriol dota ♦/ 

Mterial<shingle12,shingle, 12, inches, 6, inches, 0.25, inches,0, feet,0, feet, 1.25). 

•aterial<tar_paper2, tar_paper,72, inches, 240, inches, 0.25, inches, 0, feel,0, 
feet, 125.00). 

•oteria1<tar-paper1,tar-paper,72, inches,240, inches, 0.25, inches,0, feet,0, 
feet, 150.00). 

■aterial(tar_paper3, tar_paper, 72, inches, 240, inches,0.25, inches,0, feet,0, 
feet, 110.00). 

eaterial (sheath_paper24,sheath_paper, 12, feet, 100, feet,0. 1, inches, 
0,feet,0,feet,75.65>. 

•aterial<«ood8,«ood, 144, inches, 4, inches, 2, inches,0, feet,0, feet,8.25). 
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Mteriai<hcrd-jaood9,hard_Jiood,4, inches, 24, feet, 0.5, inches, 

0, feet,0, feet, 12.00). 

•aterial<hcrdbocr^,hcirdboard,36,feet, 10,feet, 1, inches,0, feet,0, feet, i:».55) 
•ateriaKhardboard78,hardboord,36, feet,24, feet, 1, inches,0, feet,0, feet,280.00) 
•aterial (hcrdlxxa''d34,hcrdboard,24, feet, 10, feet, 1, lnches,0, feet,0, feet, 95. 33). 

t* use brick 10x4x5 effective size ♦/ 

•ateriaKbrick88,brick, 10, inches, 4, inches, 6, inches, 

0,feet,0, feet, 1. 15). 

I iquid<paint9, paint, 900, feet, l,gal Ion, 8. 00). 

I iquid(paint21, paint, TOO, feet, l,gal Ion, 13.55). 

I iquld<paintl7,palnt, 1 100, feet, l,gal I on, 8. 25). 

/♦ 10 lb per 2 cubic feet ♦/ 

fi 1 1 erCconcre tel, concrete, 2, feet, 10, lb, 5. 00). 

■oterial<doorl,_,_,_,_,_,_,_,0, feet,0, feet, 16.00). 

eoteriaKeindoal,-, _, _,0, feet,0, feet, 30. 50). 
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t* Housel Fi le */ 



/* house data ♦/ 



i s^ < house 1 , house > . 

proper ty (house 1, subtype, s i ng I e_rooa > . 
contains(house1, Iroof 1,exterior1,roo«11). 



/♦ exterior data */ 
i SjQ<exter i or 1 , ex ter i or > . 

contains(exterior1, tfaceS, faced, face?, foce8)>. 
parljof (exler i or 1 , house 1 ) . 



I* roof data ♦/ 

i s^froof 1 , roof ) . 

containsfroof 1, (face11,face121). 
port_x>f<roof l,house1 >. 



is^ffacel 1, face>. 

di»ension< face 11, height, 151.5, inches), 
d i Mens i on< foce 1 1,aidth, 384, inches), 
diaensionffocel 1, depth, 6.5, inches). 

contains(face1 1, (fraBe1,sub_xx>uer2,sub.jcouer1,couer11). 

noTMO I _X( face 1 1, 0 ) . 

nor*al_V<foce1 1,0.34). 

noTM I -Z < f ace 1 1 , 0 . 04 ) . 

part_jof<foce1 1,roof 1 ). 
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r* ♦/ 

I s_a< f rows 1 , f na»e ) . 

property< frt3Me1,aaterial_type,«ood8>. 

di»ension<frane1,heigfit, 139.5, iriches). 
di»ension(frc»e1,»idth,382, inches). 
dii»ension(fraBe1,depth,4, inches). 

foce< froee 1 , foce 11 ) . 

par t_o f < f roee 1 , f Qce 1 1 ) . 

f* */ 

i sjq <sub_cover2, sub-COver ) . 
property<subjCover2, ■ater i a I -type, eoodS ) . 
di»ension<sub_cover2,depth,2, inches), 
par L-of <sub_cover2, face 1 1 ) . 

fi, 

I s.a < sub^cover 1 , sub^cover ) . 
property<sub-co*.«r1,Mterial-type, tar_paper2). 
d teens I onfsubucoverl, depth, 0.25, Inches), 
par t-o f < sub-cover 1 , f ace 1 1 ) . 

i sjq < cover 1 , cover ) . 

proper ty < cover 1 , M t er i a I - type , sh i ng I e 1 2 ) . 
propertyCcover 1 , f i n i sh_£o I or, broen ) . 

d i Mans ionCcovarl, depth, 0.25, inches). 

parLjoftcover I, focel 1 ). 
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is_a<face12, face). 



dieension< face 12, height^ 151.5, inches), 
d i Mens ion( face 12, eidth, 384, inches). 
dieension<foce12,deplh,5.5, inches). 

contains<foce12, (fraee2,sub_coyer13,subjcover14,cower12)). 

norwa 1 _X( face 12, 0 ) . 

nonw I _V< face 12, -0 . 34 ) . 

noTM I -Z( face 12, 0 . 04 ) . 

par t_of < f ace 12, roo f 1 ) . 



is_a<fraee2, frante). 

property ( froee2, eater i a i-type, <pood8 ) . 

dinension<froee2,height, 139.5, inches). 
dieension<fraee2,eidth,382, inches). 
dieension<froee2,depth,4, inches). 

foce<fraee2, face 12). 

par t_of < froee2, face 12 ) . 

/* ♦/ 

i s.ja<sub_cooer 13, sub..jcoMer ) . 
proper ty<sub_cover 13, eoter I a I -type, eood8 ) . 
dieension<subuCooer13,depth,2, inches). 
part_of<sub_jCOoer13, foce12). 



— */ 



i s_a < sub-cover 1 4 , sub-jcover ) . 



property<sub.jcover14,eaterial-type, tar_paper2). 



dieension<sub.jcover 14, depth, 0.25, inches). 



port_of<sii)_x»ver14, foce 12). 
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i s_fl<cover 12, cover > . 

proper ty<cover 12, water i a I -type, sh i ng I e 12 ) . 
proper ty (cover 12, f i n I shjco I or, broen ) . 

dieensiontcover 12, depth, 0.25, inches). 

par l_of (cover 12, face 12 ) . 

/* rooel ♦/ 
i s_a (rooe 1 , room ) . 

coordinates-X(product,rooal,0, inches). 
coordinotes_y(product,rooi»l,0, inches), 
coord inates_Z(product,rooal, 12, inches). 
contains(roo«1, (facet, foce2, foce3, face4, face9, face 10]). 
par t_jo f ( rooa 1 , house 1 ) . 



/* facel ♦/ 
i s_jq( face 1 , f ace ) . 

dieension(facel,height, 115, inches). 
dleenslon(foce1,eidth,302, inches), 
d i Mens ion( facet, depth, 1, inches). 

con tains( facet, (sub-cover3,cover2) ). 

norea I _X( f ace 1 , 0 ) . 

norea I _V( face 1 , - 1 ) . 

noTM I -Z ( f ace 1 , 0 ) . 

par t_of ( foce 1 , rooe 1 ) . 

f* ♦/ 



is-Q(sub-cover3,sub-jeover). 

proper ty(sub_jcover3, eater i a I -type, hardboard32 ) . 
dieension( s iA^cover3, depth, 1, inches), 
par t-of (sutxjcover3, face 1 ). 
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i SjQ<cover2, cover ) . 

proper ty < cover2 , M ter i a I -type , pa i n 19 ) . 
property<cover2,f inish-jcolor,yel loe). 

par t-jofCcover2, face 1 >. 



I* foee2 */ 
is_a<face2,face). 

diMnsion<foce2, height, 1 15, inches). 
dieension<face2,width,240, inches). 
dieension(face2, depth, 1, inches). 

contains<foce2, [subucover4,cover3D. 

norea I _X< foce2, - 1 ) . 

nomw I -V < f oce2 , 0 ) . 

noTM I -2 ( f oce2 , 0 ) . 

par t-of < f oce2, rooa 1 ) . 

f* ♦/ 

is.ja<sub^cover4,sub_cover ) . 

proper tyf s uh rQ ver4,>otaria1-type,hardboard34). 
dieension<sub-jcover4, depth, 1, inches), 
par t_o f < sub_x»ver4 , f oce2 ) . 

/♦ ♦/ 

i s j><cover3,cover ) . 

property <cover3, eater i a I -type, pa i nt9 ) . 
property<cover3,f inish_color,yel loe). 

part_of<cover3, foce2). 
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f* faceZ */ 



is_ja(face3^face>. 

dinension<face3,height^ 1 15, inches). 
diaension<foce3,«idth,362, inches). 
diaension<face3,depth, 1, inches). 

contains(foce3, lsiJb-cover5,cover4)). 
noraa I _X< f oce3 , 0 > . 
nonwl_Y(foce3, 1). 
noraa I -2< factt3, 0 ) . 
par t_of < foce3, rooe 1 ) . 

i s^<sub_jCOver5, sii>_cover ) . 

proper ty(subjCover5, eater i a I -type, hordboard32 ) . 
dieen5ion(sub-cover5,depth, 1, inches). 
port_jof<sub_cover5, faceS). 

/* */ 



i s_a < cover4 , cover ) . 

proper ty < cover4 , ea ter I a I -type, pa I n t9 ) . 
proper ty<cover4, finish.jcolor,yel loe). 



part.^f(cover4, faca3). 






/* face4 */ 



is-a<foce4, foce). 

d i eons ion<face4, height, 1 15, inches). 
dieension(foce4,eidth,240, inches). 
dieension<facft4, depth, 1, inches). 

contains<face4, Isub_cover6,cover51 ). 
noreal-X<foce4, 1). 
nonwl-V<face4,0). 
norea I .2 ( f oce4 , 0 > . 
parl-of(face4,rooe1 ). 
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fi, ♦/ 

i s_xi<sub_cower6^ sub-cover ) . 

proper ty<siib_jcover6, aater i o I -type, hcmJboard34 ) . 
di»ension<sub.jcover6,depth^ inches). 
part_of<sub_cowere, face4). 

i s.^<cover5, cover ) . 

proper ty< covers, Mter i a I -type, pa i nt9 > . 
propertytcoverS, f inish.jcolor,yel lo«>. 

port^ftcoverS, foce4>. 

/* faces ♦/ 

/♦ use brick 10x4x6 effective size */ 
is-Xi<faceS, face). 

dieension(faceS,height, 120, inches). 
dinension< faces, width, 382, inches), 
dieensionf faces, depth, 6, inches). 

containst faces, IfroBe3,sub.jcover7,cover61). 

nor«a I -X< f oceS, 0 ) . 

nonwI-Vt faces, 1). 

norea I _Z < f oceS , 0 ) . 

par t_o f < f oceS, ex ter i or 1 ) . 

/* 

is.ja< froee3, froae). 

proper ty< fra»e3, eater i a I -type, woods ) . 

d i wens ion<froee3, depth, 4, inches). 

facet froeeS, faces ). 
facet froee3, face 1 ). 

part^f < froeeS, foceS ) . 



104 



I s^<sub_cover7, sub-cover ) . 

pr<Dperty(sii)_jcover7, »ater i o I -type, sheQth_paper24 >. 
part-jof<sub_cower7, foceS). 



i sjq < cover©, cover ) . 

proper ty < cover©, »a ter i a I -type, br i ck88 ) . 
property <cover6, f i n i sh_co I or, red > . 

di Hens ion<cover6, depth, 6, inches). 

par t_of (cover©, foceS ) . 



f* face© ♦/ 
isjQffoce©, foce). 

d i mens ion< face©, height, 120, inches). 
dleenslon<face©,«idth,2©0, inches), 
dieensionffoce©, depth,©, inches). 

coniainsCfoce©, [fraee4,sub-cover8,cover7,eindoal)). 

nor«al_X<face©, 1). 

nomw I _V< f oce© , 0 ) . 

nonw I _2 < f ace© , 0 ) . 

par t_of ( f ace©, exter i or 1 ) . 

/* *f 

is_a(fraee4, froae). 

proper ty < f rante4 , M ter i a I -type , eoadS > . 

dieension<froM4,depth,4, inches). 

foce(fraike4, foce©). 
foce<fraee4, foce2). 

par t_jof < froi*e4, face© ) . 
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i s_a<sub jcoverS, sub-cover ) . 

proper ty(subjcover8, Mter i a I -type^ sheath_poper24 ) . 
part-of (subuCXfverSj faced). 

i sjQ<cover?, cover ) . 

proper ty (cover?, eo ler I a I -type, br i ck88 ) . 
proper tytcover?, f i n i sh_co I or , red ) . 

di*ervsion(cover?,dapth,6, inches). 

par t_jQ f < cover 7 , f oce6 ) . 

/* */ 

is^(« i ndoe 1 , • i ndoe > . 

diMnsion(«indo«1, height, 36, inches). 
dieension<*indoe1,«idth,48, inches). 
dinension(«indo<a1, depth, 0.5, inches). 

contains(«indoe1, [panel, si 1 1 1,casetl). 

face<«indo«1, face2). 

face(eindo«i1, face6). 

coord i na tes-X ( I oca I, • indoe 1,96, inches). 

coord inates_V( local ,«indo«1,0, inches). 

coord inates-Z( local,* indoe 1,66, Inches). 

part^fCeindoel, foce6). 

/* */ 

i s_a < pane 1 , pone ) . 
proper ty(pane1, qua I ity,4). 
par t-of (pone 1 , e i ndoe 1 ) . 

/* */ 

is^(si 1 1 t,si 1 1 ). 

propertytsi 1 1 1, f inish_lype,paint17). 
property(si I i 1, f inish_jcoior,ehi te). 

part_jof(si 1 1 1,eindoe1). 
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/*■ 






i (case 1 , cose > . 

port_jof (case I , ■ i ndcM 1 ) . 



t* faca7 ♦/ 



i s jq( face?, foce ) . 

dieension(face7,height, 120, inches). 
dieenslon<face7,«idth,382, inches). 
dinension( face?, depth, 6, inches). 

contains(face7, (fraM5,sub_couerQ,couer8,door1 1 ). 

nonwl_X(foce7,0). 

norea I _V( f oce7, - 1) . 

norea I _2( face?, 0 ) . 

parl_Df(face?,exlerior 1 ). 

/* ♦/ 



is-a(fro»e5, froee). 

proper ty( froeeS, eater i a I -type, eoodS ) . 

dienngion(froea5,dapth,4, inches). 

foce(fra*e5, face?). 
foce(fraee5, foce3). 

part-af(fraae5, face?), 
i s_a(sub_cover9, sub.jcover ) . 

proper ty (sub.xo<.*er9, eater i a I -type, sheo th-paper24 ) . 
part_of(sv*>jCOver9, face?). 
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i sjq < coverB , cover ) . 

proper ty( covers, eater j a I -type, br i ck88 > . 
proper tytcoverB, f i n i sh_co I or, red ) . 

di Mens iontcoverB, depth, 6, inches). 

(wrt tcoverB, face? ) . 

i s_jQ (door 1 , door ) . 

proper ty (door t , eater i a I -type, eoodS ) . 
property(door 1, f Inish_type,paint21 ). 
proper ty(door 1 , f i n i sh_co I or , broen ) . 
proper ty(door 1 , knob-type, round32 > . 
proper ty (door 1 , h i nge-type, squares i n ) . 

diMension(door1,height,84, inches). 
dieension(door1,eidth,36, inches). 
dieension(door1, depth, 2.5, inches). 

foce(door 1, faces ). 
foce(door1, face?). 

coord inates-X( local ,door1, 125, inches). 
coordinates-Y(local,door1,0, inches). 
coordinates_Z(local,door1,42, inches). 
port_jof(doorl, face?). 



/* faces ♦/ 
is^(faceS, face). 

d i Mens ion( faces, height, 120, inches). 
dieension(foce8,eidih,250, inches). 
dieension( faces, depth, 6, inches). 

contains(faceS, (fraee6,sub-jcover10,cover9]). 

noma I _X( faces, - 1 ) . 

norea I -V ( f oceS , 0 ) . 

norea I -Z( faces, 0 ) . 

par Ljof ( faces, exter i or 1 ) . 
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is_a<fra*eC, frtwe). 



proper ty( froMe6, Mater i a I _type, woods > . 

dlMension<froMe6,depth,4, inches). 

foce<froMe6, faced). 
focaCfmMft6, foce4). 

port^f<froMa6, foceS). 
i s^<sub^cooer 10, sub.jcouer ) . 

proper ty<sub-jcouer 10, Mater i a I _typa, shea ih_papar24 ) . 
parLjof<siij_cover 10, foceS). 



i Sja(cooer0, cover ) . 

proper ty(cov«^. Mater i a I -type, br i ckSS ) . 
property<cover9, f Inlsh_jco1or,red). 



part_of<cover9, foceS). 



/* foceO ♦/ 

is_a(face9, face). 

diMension(foce9,hei^t,20, feet). 
diMension<face9,Midth,30, feet), 
di Mens ion< faces, depth, 1, inches). 

contains< faces, [froMe7,sub_cover1 1, cover 10)). 

norMal-X<faceS,0). 

norMal_V<faceS,0). 

norMa1_2<faceS,-1 ). 

par t_jof < faces, rooM 1 ) . 
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is_jQ< frame?, frame). 

proper ty< f rome?, mater i a I -type, moods ) . 

foceffrome?, foceQ). 

par t_of< frame?, foceS). 



i s^(s(A>-jcooer 1 1 , sub.jCover > . 
proper ty<sub-jcooer 1 1 , mater i a I -type, hardt»ord?8 ) . 
di mens ion<sub_jcover 11, depth, 1, inches). 
part-of<sub_jcover11, foceQ). 

/* */ 



i s_a<cooer 10, cover ) . 

propertytcover 10, mater i a I -type, pa i nt 1? ) . 
propertyCcover 10, f inish-color,mhi te). 

par t-jof (cover 10, faceQ) . 



t* face 10 ♦/ 
i s-a( face 10, face ) . 

dimension(foce10,height,382, inches), 
d i mens ion( face 10, midth, 202, inches), 
d i mens ion( face 10, depth, 12.5, inches). 

contains(face10, C frameQ, sub-cover 12,cover 1 1 1 ). 

norma I _X( f ace 10, 0 ) . 

normal_V(foce 10,0). 

normal_2(foce10, 1). 

part-of(face10,room1 ). 
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— ♦/ 





is>ja<fr<»e8, frcae>. 

proper ty< froneS, eater i a I -type, concrete 1 ) . 
dieension<froee8, depth, 12, inches), 
facet froeeS, face 10). 
part_of<fraee8, face 10). 

I s_a<sub_cover 12, subjcooer ) . 

proper ty < sub jcover 1 2, ea ter i a I -type , hard j*ood9 ) . 

dieensiontsUxjcooer 12, height, 20, feet), 
d i eens i ontsub^cooer 12, • i dth, 30, feet ) . 
dieensiontsubucover 12, depth, 0.5, inches). 

port-of<subjcover12, face 10). 

/* */ 

i s_a < cover 1 1 , cover ) . 

proper ty< cover 1 1,eaterial-type,palnt21 ). 
proper tyt cover 1 1, f inish.jcoior,broan). 

d i aens i ontcover 1 1 , he i ght, 20, feet ) . 
diaensiontcoverl 1, width, 30, feet). 

par t_jof (cover 1 1, face 10). 
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/♦ Scheaa FI le */ 



par t_of <house, f I oorp I cm ) . 
par I jof <hous«, exter i or ) . 
part_of <house, roo« ) . 
par t_of (house, roof ) . 
par tjof (house, space > . 

part_of(roof, foce). 

porLjof(roo«, foce). 

port_of(spoce, face). 

par t^f (exterior, face). 

par t_of ( foce, ctoor ) . 
par t_of ( face, • i rxJoe ) . 
par tjof ( face, open i ng > . 
par t-jo f ( f ace , couer i ng ) . 
par t_of ( face, sub-couer i ng ) . 
par t_of ( face, frcae ) . 
parLjof(face, insulation), 
par LjO f ( f oce , cormec t i on ) . 

par t ^ f ( cormec t i on , p I uikb i ng ) . 
par Ljof (connect i on, e I ectr i c ) . 
par t_of (connect ion, heat ing ) . 
par t_o f ( connec t i on , gas ) . 

part^f(vindo«,sm). 
par t_of (• i ndoe, cose ) . 
par t_0 f (• i ndoe , pane ) . 

trcms_partof(X,V) partjof(X,V), ! . 
lrans_partof(X,V) port_of(X,Z), 

trons.partof(Z,V), ! . 
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/* Convers ion File */ 



converts<fl, feet, B, feet) B = fi. 
convertstfl, inches,B, irwihes) B = fi. 
convertsffi, feet, Benches) B = fi ♦ 12. 

conuartsCfi, inches, B, feat) B = fi / 12. 

convertstfi, feet, B, yards) B = fl / 3. 

conyerts<fi,yards,B, feet) B = fi ♦ 3. 

con<.«rtCfi,0ieension1,B,0ieension2) 
confer ts<fi,Di»ensi on 1,B,Di»ension2), > . 

conv«rt<fi,Dieensjon1,B,Dieension2) 
conucr tsCfi, 0 i eens i on 1 , X, 0 i eens i onx ), 
no t ( equa I <0 i Mens i on 1 , D I mens i onx ) ), 
conoer t<X, 0 i Mens i onx, B, 0 i Mens i on2 ) . 
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t* Routines File */ 



t* find longest dinension of three pwssed in */ 

longest-di»ension<Ht,Htuni ts^Ud^Uduni ts^Dp^Dpuni ts,Len,Htuni ts> 
conyert<Ud,Wduni ts,He*_IW,Htuni ts '), 
conuert<0p,0puni ts,Ne«J3p^Htuni ts>, 

•ox i Mue<Ht , Hev-Kkj, Max ), 

MxiHJR<hax,Neti-Op,Len), ! . 

Bdxiwji<R,B,R> 
fl > B,.«. 

Mxieuii<R,B,B>. 

!* hove natch if eithin .25 inches ♦/ 

■atch(R,RJUni ts,B,BJUni ts,C,CJUni ts,0,DJUni ts,R,RJUhi ts,B,BjUni ts) 
conwert<fl,RJUni ts,He*_R, inches), 
conoert<B,BJUni ts,fte«-£, inches), 
convert<C,CJJnits,Me«-jC, inches), 
conuert(0,0_Uni ts,Ne«J3, inches), 

<<HewJ3 - HeejC) < 0.25), 

«Hee_D - HeeJC) > - 0.25),!. 

Mtch<R,RJUni ts,B,BJJni ts,C,CJJni ts,0,0JJhi ts,R,RJUhi ts,C,CJJni ts) 
conyert<fl,flJLIni ts,Hee_R, inches), 
conuert(B,BJLInits,Ne«-fi, inches), 
conyert<C,CJJni ts,Mee-jC, inches), 
conoert<0,0JUnits,Nee_D, inches), 

<<l1ee_D - Me*_B) < 0.25), 

«Hee-D - Ne«_£) > - 0.25),!. 

Mtch<R,RJJnits,B,BJUhits,C,CJLJnits,D,DJUhits,B,BjUnits,C,CJUhits> 
convert<fl,RJUnlts,Me*_fl, inches), 
conMert(B,BJLInits,Ne«-fi, inches), 
conwert<C,CJJni ts,Hee_jC, inches), 
conoert(0,0JLIni ts,lte«-D, inches), 

<<He«U) - He*_R) < 0.25), 

«Hee_D - Ne«_fl> > - 0.25),!. 

Mtch(R,RJLIni ts,B,BJUni ts,C,CJJni ts,0,0JJni ts,R,RJUni ts,B,BJJhi ts) 
nl,«rite< ‘Error! ho eatch found during roe Mterial calculations. ' ),fai I . 

I* routine to get eenber of list */ 

Mubera, (X|U). 

eeebertX, IVIU) eeiiber<X,L). 



f* routine to delete eenber of list ♦/ 
deletea, U, m. 
delete<X, IX|L1,L> !. 
delete(X,lV|U,tV|m) delete<X,L,M>. 

equaKfl,B> B = fl. 
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APPENDIX D 



I ?- start. 

check for house house 1 
check for exterior exteriorl 
check for roof roofl 
check for face facell 
check for froee froeel 

grade Mirks eust be clearly visible on all froeing 
■eebers for inspection 

check for sub^cover sub_cover2 

check for sub-cover subucoverl 

sub-cover sub-coverl eeets requireaents; al lowed substitutes are: 

- tor-paper 1 

- tar_paper3 
check for cover coverl 
check for face facel2 
check for froae frame! 

grade Mrks aust be clearly visible on all fraaing 
aeabers for inspection 

check for sub.jcover si<>-cover13 

check for sub.jcover sub-cover 14 

sub-cover sub-cover 14 aeets requirements; alloaed substitutes are 

- tar_paper1 

- tar-paper3 
check for cover cover12 
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I n n I f I m 1 1 { f 1 1 I i 



for rooa roo«1 
for foce focel 
for sub_cover sub_cover3 
for cover cover2 
for face face2 
for sub-cover subjcover4 
for cover covers 
for foce faces 
for subjcover sub.jcover5 
for cover cover4 
for foce foce4 
for sit-cover sii>.jcover6 
for cover covers 
for foce faces 
for froae froaeS 

rxide aorks aust be clearly visible on all 
sabers for inspection 

for sub-cover sub-Cover? 

for cover coverb 



fraaing 



sproved aethods aust be used for building aosonry oalls 
ten outside air teaperoture drops beloa 40 degrees forenheit 

for face foceb 

for froae froae4 



grade aarks aust be clearly visible on oil fraaing 
aeab e r s for inspection 

check for sub-cover subucoverS 
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check for cover cover? 



approved Methods nust be used for bui Iding Masonry wal Is 
nhen outside air tenperature drops beloe 40 degrees forenheit 

check for window windowl 

check for pane panel 

pane pane t passed qua I i ty check 

check for sill si 1 1 1 

check for case easel 

check for face face? 

check for frone froeeS 

grade works wust be clearly visible on all froeing 
M e wber s for inspection 

check for sub^cover subjcoverO 

check for cover covers 

approved Methods wust be used for bui Iding Masonry wai Is 
when outside air teeperature drops below 40 degrees forenheit 

check for door doorl 

door doorl passed - height 

door doorl passed - width 

door doorl passed - depth 

check for face faced 

check for frawe froeefi 

grode works wust be clearly visible on all froeing 
wewbers for inspection 

check for sub-cover sub-jcoverlO 

check for cover cover9 

approved Methods wust be used for bui Iding masonry wal Is 
when outside air teeperature drops below 40 degrees forenheit 



check for foce foce9 
check for froee froee? 

gro6e marks mast be clearly visible on all froning 

KCflibers for inspection 

check for sub - jC over sub-cover 1 1 
check for cover cover 10 
check for face focelO 
check for froee froeeS 
check for sub-cover sub-cover 12 
check for cover coverll 
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♦ ♦ 

Production Sequence Report for housel 

- house style is single_roo» 
and consists of Iroof 1, exterior l,roo«1 J 
* * 



♦ 






♦ 




cooMent 


: noTMl 


for each face 1 isted 






* 






♦ 












FACE 


X 


V 




z 


facell 


0 


0.34 




0.94 


face 12 


0 


-0.34 




0.94 


focel 


0 


-1 




0 


foce2 


-1 


0 




0 


faces 


0 


1 




0 


foce4 


1 


0 




0 


faces 


0 


1 




0 


faces 


1 


0 




0 


face? 


0 


-1 




0 


faced 


-1 


0 




0 


faced 


0 


0 




-1 


face 10 


0 


0 




1 



♦ % 

coMMnt : erect foundation and frone 
♦ ♦ 



froeeS 


assemble 


material 


type 


concretel 


fr<»e4 


assemble 


material 


type 


moods 


fraeeS 


assemble 


material 


type 


moods 


frames 


assemble 


material 


type 


moods 


frames 


assemble 


material 


type 




frame? 


assemble 


material 


type 


moods 


fromel 


assemble 


material 


type 


moods 


frome2 


assemble 


material 


type 


moods 
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♦ ♦ 

coMent ; put door framing In place 
♦ ♦ 

doorl assemble material type: woodS 

- attach to: foceS foce? 

- location relative to foce? 

X coordinate 125 inches 

V coordinate 0 inches 

Z coordinate 42 inches 

ii ★ 

comment : put mindom framing in place 
♦ « 

silM assemble mindomsill for: mindoml 

- attach to: foce2 faced 

- location relotiue to faced 

X coordinate 9d inches 

V coordinate 0 inches 

Z coordinate dd inches 



♦ 



♦ 



comment : put up exterior siding 
♦ ♦ 



s<i)jcover10 


osseable 


aoteriol 


type 


sheoth_poper24 


sub-jcouerQ 


osseable 


aoteriol 


type 


sheoth_poper24 


sub_jcover8 


osseable 


aoteriol 


type 


sheath_paper24 


sub_couer? 


osseable 


aoteriol 


type 


sheoth_paper24 


covers 


osseable 


aoteriol 


type 


brIckSS 


cover? 


osseable 


aoteriol 


type 


brickSS 


covers 


osseable 


aoteriol 


type 


brickSS 


covert 


ossaible 


aoteriol 


type 


brickSS 
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♦ 






* 


cocMftent : 


put up roof 






♦ 






* 


sub-jcover13 cisseable 


aoteriol 


type: 


sub-jcover2 


osseable 


Boteriol 


type: 


sit>_coverl 


osseable 


aoteriol 


type: 


suixjco<.«r 14 cisseable 


aoter i o 1 


type: 


cover 12 


osseable 


aoteriol 


type; 


COUAT 1 


OSSAftblQ 


aoteriol 


type: 








* 


comAont : 


put up foCAS 


for eoch rooa 










* 


sub.jcouQr11 QSSMble 


aoteriol 


type: 


sub.jCover6 


osseable 


aoteriol 


type; 


sub-cover4 


osseable 


aoteriol 


type: 


sub^coverS 


osseable 


aoteriol 


type: 


sutocouerS 


QSSAAblA 


aoteriol 


type: 








♦ 


consent : 


build floor os lost step 










* 


sub.jcouer12 ossMblA 


AOtAT i Q 1 


type: 


♦ 






♦ 


cowMnt : 


put mindoms i 


in plOCA 










4i 


■ indovi 


1 * 
! 


using ponAl 




♦ 






♦ 


cow&Ant : 


put finish on vincloss and doors 


4i 






* 


silM 


finish 


point 17 




doorl 


finish 


point21 





voodS 

woo ds 

tar-paper2 

iar^paper2 

shii>gle12 

shingi«12 



KarttxxircfTS 

hardboard34 

hardboard34 

hcr'dboard32 

hardbocird32 



hard.jBOodQ 



■hi la 
bro«n 
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♦ 



♦ 



cc^aent ; put on door knobs and hinges 
♦ ♦ 



doorl assemble knob 

doorl Qsseiible hinge 



round32 

square3in 



♦ 



4i 



coMMnt : put final paint on faces 
♦ ♦ 



cower 10 


paint 


material type: 


paint 17 


cowers 


paint 


material type; 


pa into 


cowerS 


paint 


material type: 


painty 


cower2 


paint 


material type: 


painty 


cower4 


paint 


Mterial type: 


painty 


cowerl 1 


paint 


material type: 


paint21 
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Row Materials Report 



Itea 


Cost 


Units Requin 


(toorl 


$16 


1 


•indowl 


$30 


1 


concretel 


$1737 


347.514 


•oodS 


$3582 


434. 194 


tor_paper2 


$841 


6.73333 


hordboard32 


$211 


1.54776 


hardboard34 


$147 


1.54722 


hordboordTS 


$200 


0.694444 


txrd_gpood9 


$900 


75 


shea th_paper24 


$64 


0.850277 


shingle12 


$2020 


1616 


brickSS 


$4224 


3673.2 


paint9 


$8 


1.0317 


painti? 


$4 


0.551818 


paint21 


$12 


0.923095 



♦ ♦ 
Total naterial cost is $13996 
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StcT't Row riaterials Report <•/ substitute) 



♦ * 

sub-xoverl: substitute tor-poperl for tar-paper2 
♦ « 



Row Moterlols Report 



lte» 


Cost 


Units Requin 


doorl 


$16 


1 


•indoel 


$30 


1 


concrete 1 


$1737 


347.514 


tcv'-poperl 


$S04 


3.36666 


•oodS 


$3582 


434. 194 


tar-poper2 


$420 


3.36666 


hardboord32 


$211 


1.54776 


hardboor<J34 


$147 


1.54722 


hordboordTR 


$200 


0.694444 


hcrdJKKX19 


$900 


75 


sheath-poper24 


$64 


0.850277 


shingle12 


$2020 


1616 


bricR88 


$4224 


3673.2 


point9 


$8 


1.0317 


point 17 


$4 


0.551818 


point21 


$12 


0.923095 



♦ ♦ 

Total Mteriol cost is $14079 
♦ ♦ 
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Rcw Materials Report 



Ite* 


Cost 


Units Requin 


doorl 


$16 


1 


•indosi 


$30 


1 


concrete 1 


$1737 


347.514 


tar_poper3 


$370 


3.36666 


•code 


$3582 


434. 194 


tar_poper2 


$420 


3.36666 


hardboard32 


$211 


1.54776 


hardboard34 


$147 


1.54722 


hordboordTS 


$200 


0.694444 


hord-eoodQ 


$900 


75 


sheath-paper24 


$64 


0.850277 


shingle12 


$2020 


1616 


brick88 


$4224 


3673.2 


paint9 


$8 


1.0317 


painti? 


$4 


0.551818 


paint21 


$12 


0.923095 



♦ ♦ 
Total eaterial cost is $13945 
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♦ ♦ 

sub-jcover14; substitute tar_poper1 for tar«paper2 
♦ ♦ 



Row haterlQls Report 



Itea 


Cost 


Units Requin 


doorl 


$16 


1 


«lndo(i1 


$30 


1 


concrete 1 


$1737 


347.514 


lar_paper2 


$420 


3.36666 


•ood8 


$3582 


434.194 


tor-poperl 


$504 


3.36666 


hardbocrd32 


$211 


1.54776 


hardboord34 


$147 


1.54722 


horcJboartfTS 


$200 


0.094444 


hard_»oo<J9 


$900 


75 


sheath-poper24 


$64 


0.850277 


shingle12 


$2020 


1616 


brickSS 


$4224 


3673.2 


point9 


$8 


1.0317 


pointl? 


$4 


0.551818 


point21 


$12 


0.923095 



♦ * 

Total Mterlal cost Is $14079 
♦ ♦ 
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* * 

sub_cower14: substitute tar_paper3 for tar_paper2 
* 4c 



Roo Materials Report 



Itea 


Cost 


Linits Requin 


doorl 


$16 


1 


•indowl 


$30 


1 


concrete 1 


$1737 


347.514 


tar_poper2 


$420 


3.36666 


voodS 


$3582 


434.194 


tar_paper3 


$370 


3.36666 


hardboard32 


$211 


1.54776 


hor<Jboard34 


$147 


1.54722 


hordboorcfTS 


$200 


0.694444 


horcLaoodQ 


$900 


75 


sheath-poper24 


$64 


0.850277 


shingle12 


$2020 


1616 


brickSS 


$4224 


3673.2 


pointQ 


$8 


1.0317 


paint 1? 


$4 


0.551818 


paint21 


$12 


0.923095 




Total eater iai cost is $13945 
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